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Chapter 1. Introduction 


This user’s guide describes the IBM AIX XL FORTRAN Compiler/6000, and explains how to 
compile, link, and run programs written in XL FORTRAN. FORTRAN (FORmula 
TRANslation) is a high-level programming language primarily designed for applications 
involving numeric computations. FORTRAN is suited to most scientific, engineering, and 
mathematical applications. 


The exceptional (XL) family of compilers provides consistency and high performance across 
multiple programming languages by sharing the same code optimization technology. 


The XL FORTRAN compiler, Version 1.1, compiles programs written using the American 
National Standards Institute (ANSI) FORTRAN Language with selected RT PC VS 
FORTRAN and RT PC FORTRAN 77 extensions. The American National Standard 
Programming Language FORTRAN, ANSI X3.9-1978, details the ANS! FORTRAN 
language. 


The XL FORTRAN compiler conforms to the Systems Application Architecture (SAA) 
definition of the FORTRAN language. 


Note: Language extensions noted in this guide are extensions to the FORTRAN definition 
in Systems Application Architecture Common Programming Interface FORTRAN 
Reference, SC26—4357. 


Who Should Use This Manual 


This manual is for people who want to use the XL FORTRAN compiler, who are familiar with 
the IBM AIX Version 3 for RISC System/6000, and who have some previous programming 
experience. If you are not familiar with the operating system, refer to AIX General Concepts 
and Procedures for IBM RISC System/6000, SC23-2202. 





How to Use This Book 


This book is not intended as a tutorial, but rather it explains the details for using the XL 
FORTRAN compiler. The manual is organized according to the steps necessary to compile, 
link, and run a program, and deals with more advanced topics in the later chapters. 


If you have not used a compiler on the IBM AIX RISC System/6000 computer before, you 
might find it useful to read the first three chapters of this book before you proceed. After you 
become familiar with the system and the compiler, you can use this manual as a handy 
reference. 





How This Book is Organized 


The following diagram depicts the path that the XL FORTRAN compiler takes when you 
invoke it. The diagram also shows the location of related details within this guide. 
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How to Read the Syntax Diagrams 
Throughout this book, syntax diagrams use the structure defined below: 


e Syntax diagrams are read from left to right and from top to bottom, following the path of 
the line. 


The — symbol indicates the beginning of the diagram. 
The —> symbol indicates that the syntax is continued on the next line. 
The »— symbol indicates that the syntax is continued from the previous line. 


The =| symbol indicates the end of the diagram. 


Diagrams of syntactical units other than complete statements start with the »— symbol 
and end with the -» symbol. 


e Keywords appear in the diagrams in uppercase; for example, OPEN, COMMON, and 
END. You must spell them exactly as shown. 


Note: You can type keywords in uppercase, lowercase, or mixed case, and the compiler 
folds them into lowercase during compilation. However, if you specify the MIXED 
compiler option you must enter keywords in lowercase. 


¢ Variables and user—supplied names appear in lowercase italics; for example, 
array_element_name. \f one of these terms ends in _list it specifies a list of terms. A list is 
a nonempty sequence of the terms separated by commas. For SxeInyie the term 
name_list specifies a list of the term name. 


¢ Punctuation marks, parentheses, arithmetic operators, and other special characters must 
be entered as part of the syntax. 


Required and Optional Items 
Required items appear on the horizontal line (the main path). 


— STATEMENT — required_item — 


Branching shows two paths through the syntax. 


7 required_choice1 
— STATEMENT aa H 
required_choice2 
Optional items appear on the lower line of a branched path. The upper line is empty, 
indicating that you do not need to code anything for this syntax item. 





— STATEMENT — ae HY 
optional_item 
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Repeatable Items 
An arrow returning to the left below a line shows items that you can repeat. 





fater STATEMENTS repeatable_item —| 


Punctuation on a repeat arrow must be placed between the repeated items. 


ma St ATEMENT ss repeatable_item am 


Default Items 
A heavy line is the default path. Coding nothing for that item is the same as coding the 
default item. 


choice_1 
— STATEMENT 
choice_2 


Example of a Syntax Diagram 
The following example of a fictitious statement shows how to use the syntax: 








1 2 3 a 
— EXAMPLE— char_constant +: 
b 


t. e “hes 11 a 
9 g name_list 
; a, 


Interpret the diagram by following the numbers: 


, 
2 
3 
4 
5 
6 





. This is the start of the diagram. 

. Enter the keyword EXAMPLE. 

. Enter a value for char_constant. 

. Enter a value for a or 6, but not for both. 
. This path is optional. 


. Enter a value for c or d, or no value. If you enter a value for d, you must include the 
parentheses. 


N 


. The diagram is continued at 8. 
8. The diagram is continued from 7. 


9. Enter a value for e or f, or no value. If you do not enter a value, the default value e is 
used. 


10. Enter at least one value for g. If you enter more than one value, you must put a comma 
between each. 


11. Enter the value of at least one name for name_list. lf you enter more than one value, you 
must put a comma between each. 


12. This is the end of the diagram. 


4 User’s Guide for XL FORTRAN 


A Note About Examples 


Examples in this book explain elements of the XL FORTRAN language. They are coded ina 
simple style. They do not try to conserve storage, check for errors, achieve fast run times, or 
demonstrate all possible uses of a language element. 


Related Documentation 
You might want to refer to the following publications for additional information: 
IBM Publications: 


Reference Manual for IBM AIX XL FORTRAN Compiler/6000, SCO9—1258—00, describes 


the XL FORTRAN programming language as implemented on the IBM AIX RISC 
System/6000 computer. 


Systems Application Architecture Common Programming Interface FORTRAN Reference, 
SC26-4357, describes the FORTRAN component of the common programming interface. 


Non-IBM Publications: 
American National Standard Programming Language FORTRAN, ANSI X3.9-1978 


International Standards Organization Programming Language FORTRAN, ISO 
1539—1980(E) 


Federal Information Processing Standards Publication FORTRAN, FIPS PUB 69 


Instrument Society of America Standard: Industrial Computer System FORTRAN 


Procedures for Executive Functions, Process Input/Output and Bit Manipulation, 
ANSI/ISA S61.1 


Military Standard FORTRAN, DOD Supplement to ANSI X3.9-1978, MIL-STD-—1753 
ANSI/IEEE Standard for Binary Floating-Point Arithmetic, ANS|I/IEEE Std 754-1985. 


Chapter 1. Introduction 5 


6 User’s Guide for XL FORTRAN 





Chapter 2. The IBM AIX XL FORTRAN Compiler/6000 


This chapter discusses the XL FORTRAN compiler features and summarizes the items to 
keep in mind when entering your FORTRAN source program. For details of the XL 
FORTRAN language refer to the Reference Manual for IBM AIX XL FORTRAN 
Compiler/6000, SCO9—1258. 


The XL FORTRAN language comprises: 
¢ FORTRAN 77: 


— The full ANSI FORTRAN 77 language (referred to as FORTRAN 77), defined in the 
document American National Standard Programming Language FORTRAN, ANSI 
X3.9-1978. 


¢ The XL FORTRAN language extensions are primarily (though not exclusively): 
— IBM extensions specified in Systems Application Architecture FORTRAN Release 1. 


~- Selected other extensions commonly available in earlier IBM FORTRAN compilers, 
and that the VS FORTRAN, RT PC FORTRAN 77, and RT PC VS FORTRAN 
compilers currently support. 


Features of the XL FORTRAN Compiler 


The XL FORTRAN compiler is an IBM Licensed Program that operates within the IBM AIX 
Version 3 for RISC System/6000 environment. The XL FORTRAN compiler supports all 
RISC System/6000 computer hardware configurations. 


Language Support 
The language level supported by XL FORTRAN is based on the ANSI FORTRAN 77 
definition. 
XL FORTRAN is also based on SAA FORTRAN, defined in the Systems Application 
Architecture Common Programming Interface FORTRAN Reference, SC26—4357. The 
Reference Manual for IBM AIX XL FORTRAN Compiler/6000, SCO9—1258 outlines the 
extensions to SAA FORTRAN. 


Compiler Features 
The XL FORTRAN compiler provides the following support for engineering and scientific 
application development: 


¢ Highly optimized object code 

¢ VS FORTRAN, RT PC VS FORTRAN, and RT PC FORTRAN 77 compatibility (with some 
exceptions) 

¢ Descriptive diagnostics 

¢ dbx debugger support. 


Compiler Options 
You can invoke the compiler using the xlf command and control its actions with compiler 
options. The compiler sets the return code to indicate the completion status of the program 
compilation, and can also provide timing and resource usage data. For a discussion of 
compiler options and invocation refer to “Compiler Options” on page 16. 
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The compiler output listing has optional sections controlled by the compiler options you 
-select. By default, XL FORTRAN produces no listing. A description of the listing format is in 
“Compiler Listings” on page 46. 


Symbolic Debugger (dbx) Support 
The XL FORTRAN compiler generates debug information tables compatible with dbx giving 
you use of the symbolic debugger for your FORTRAN programs. 


Note: XL FORTRAN supports full source—level debugging with no optimization in effect. 
There is no guarantee that symbolic debugging can take place at the higher 
optimization level. 


Source Code Conformance Flagging 
If you specify the appropriate compiler option, the compiler flags XL FORTRAN source 
statements for conformance to the following FORTRAN language definitions: 


e Full ANS! FORTRAN 77 (FIPS option) 
e¢ IBM Systems Application Architecture FORTRAN (SAA option). 


Generated Code Optimization 
The XL FORTRAN compiler gives you the ability to control the optimization of generated 
code through compiler options. See “Compiler Options” on page 16 for further information. 


Online Compiler Heip | 
The XL FORTRAN compiler provides online help that lists available command line options. 
Invoke this online help by using the xIif command with no arguments. 


Migration Characteristics 
The XL FORTRAN compiler aids migration by providing source code compatibility with 
various existing compilers, but it does not provide object code compatibility. See Appendix E, 
“Migration Considerations’ for further information. 


Also, the XL FORTRAN compiler provides two compiler options to allow you to flag (with 
warning messages) features that do not conform to certain FORTRAN definitions. See the 
“Source Code Conformance Flagging” section above for more information about this feature. 





System Configuration 


The XL FORTRAN compiler, its generated object programs, and the XL FORTRAN library 
run on all RISC System/6000 computer hardware configurations under IBM AIX Version 3 for 
RISC System/6000. 





Compiler Installation 


You install the compiler by using the AIX installp command while logged on as root or while 
in superuser mode. See the AIX Commands Reference for IBM RISC System/6000, 
SC23-—2199 for the details of this command. 


There is a file called /usr/Ipp/xlf/DOC/README.xif that you should examine for 
supplemental details. See the /nstallation Instructions for IBM AIX XL FORTRAN 
Compiler/6000 for further information about installation. 
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Entering FORTRAN Source Programs 


A variety of text editors are available to use under IBM AIX Version 3 for RISC System/6000. 
You can use any one of these to create FORTRAN source programs. You must create the 
source program with a suffix of .f . 


For a complete description of the XL FORTRAN language and its structure, see the 
Reference Manual for IBM AIX XL FORTRAN Compiler/6000, SCO9-1258. 


FORTRAN Source Files 


The following sections give information you need to enter your source files. 


The XL FORTRAN Character Set 


Names 


Keywords 


The XL FORTRAN character set consists of the letters A—Z, the letters a—z, the digits 0-9, 
and the following special characters: 


Blank -}. %) “680 Re eo Fy OR i gt et an fk! SSS 


The characters are arranged in a collating sequence. The collating sequence is the 
arrangement of characters for a given system that determines their comparison status. XL 
FORTRAN uses ASCII (American National Standard Code for Information Interchange) to 
determine the ordinal sequence of characters. See Appendix B, “ASCII/EBCDIC Character 
Set” for the complete ASCIil character set. 


A name (or symbolic name) is a sequence of 1 to 250 letters or digits, the first of which must 
be a letter. XL FORTRAN treats the currency symbol ($) and underscore character (_) as 
letters when you use them in a name, and you can use either one as the first character. Note 
that the use of $ as the first character in external names can cause unpredictable results in 
AIX shell procedures, because AIX uses §$ as the first character in a shell variable name. 
Also, underscore (_) is reserved for system use and some compiler generated names, so 
you may want to avoid using it as your first character. 


XL FORTRAN folds all letters in a source program from uppercase to lowercase unless they 
are in a character context!. If you specify the MIXED compiler option, XL FORTRAN does 
not fold the source program, and symbolic names are distinct if you specify them ina 
different case. 


A keyword is a sequence of characters that, in certain contexts, identifies a language 
construct. XL FORTRAN does not reserve any sequence of characters in all contexts. You 
can write keywords in uppercase, lowercase, or mixed case, but XL FORTRAN folds them to 
lowercase. If you specify the MIXED compiler option, the compiler does not fold the source 
program, and you must write keywords in lowercase. 


Statements 


A FORTRAN statement is a sequence of syntactic items. Statements form program units — a 
sequence of statements and optional comment lines that constitute a main program or 


' A character context means characters within character constants, Hollerith constants, format—item lists in FORMAT 
statements, and comments. 
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Fixed—Form 


subprogram. You must write each statement according to the source input format specified 
by your selected compiler options (FIXED or FREE). The default input format is FIXED. 


Input Format 

In fixed—form input format, each line is a sequence of 72 characters. Columns 73 and 
beyond are not significant to the compiler, and you can use them for identification, 
sequencing, or any other purpose. 


An initial line contains a statement label, if you desire, in columns 1 to 5, a blank or zero in 
column position 6, and the characters representing the statement in columns 7 to 72. If there 
is no statement label, leave columns 1 to 5 blank. 


The text of any statement except the END statement and the EJECT, INCLUDE, and 
@PROCESS compiler directives can continue on the following line. A continuation line 
contains blanks in columns 1 to 5, and any character in the XL FORTRAN character set 
other than a blank or zero in column position 6. XL FORTRAN allows columns 1 to 5 to 
contain characters, but the compiler ignores them. You can use up to 99 continuation lines 
for a single statement. 


A comment indicator (C, c, or *) in column 1 will cause the compiler to treat the line as a 
comment. Comment lines do not affect the executable program, and you can use them to 
provide documentation. They can have either of two forms: 


* C,c, or * in column 1 and, optionally, any characters you can use in a character constant 
in columns 2 through 72 
¢ Blanks in columns 1 through 72. 


Note that a D in column 1 will also cause the compiler to treat the line as a comment line if 
you do not specify the DLINES compiler option. 


A comment line can appear anywhere in the program unit before the END statement. There 
is no restriction on the number of comment lines you can use. 


An exclamation point (!) initiates an inline comment except when it appears in a character 
context, or if it appears in column 6 (where it is treated as a continuation character). The 
comment extends to the end of the source line. An END statement can contain a comment 
that you initiate with an exclamation point (!). An @PROCESS compiler directive cannot 
contain an inline comment. 


c 
ec This is a fixed—form example 
e 
DO 10 I=1,10 
WRITE(6,*)‘this is the index’,I ! with an inline comment 
10 CONTINUE 


Free—Form Input Format 


In free—form input format, the first character of the statement (after a label, if there is one) 
must be alphabetic. The maximum length of a free—form statement is 6600 characters 
(equivalent to 100 fixed—form lines), excluding the continuation characters and the statement 
labels. The statement continuation character is a minus sign (—) and it appears at the end of 
every line to be continued. 


An initial line can start in any position, and can contain (as the leftmost entry on a line) a 
statement label. XL FORTRAN ignores leading and imbedded blanks in a statement label. 


The text of any statement, except the END statement and the EJECT, INCLUDE, and 
@PROCESS compiler directives can continue on the following line. You indicate a line you 
want continued with a minus sign terminating the line. It must be the last nonblank character 


10 User’s Guide for XL FORTRAN 


Tabs 


that is not part of a comment. The statement text of a continuation line can start in any 
position. You can have up to 99 continuation lines in a single statement. 


A comment line cannot be continued, and must not follow a continued line. It begins with a 
double quotation mark (”) in column 1, or is a blank line. 


An exclamation point (!) initiates an inline comment except when it appears in a character 
context. The comment extends to the end of the source line, and XL FORTRAN processes it 
as if it were blank characters (including the delimiter). An END statement can contain an 
inline comment that you initiate with !. An @PROCESS compiler directive cannot contain 
an inline comment. 


The minus sign for continuation must precede the ! delimiter on continuation lines. You can 
intersperse ! commentary with free—form source lines, but you must use the — to continue 
any line. If you want to continue a character context, you cannot follow the — signifying 
continuation by an inline comment. 


a“ 


" This is a free—form example 


DO 10 I=1,10 

WRITE(6,*)‘this is — 
the index’,I 

10 CONTINUE 


A tab character placed anywhere in columns 1 to 6 will tab to column 7. Therefore, you 
Cannot tab continuation lines in fixed—form input. XL FORTRAN treats any other tab 
characters, except for those in a character context, as blanks. 


For example, if you assume the @ is the system—generated tab character, the code segment: 


C@Example of tab input lines 
@I=0 
10@CONTINUE 


is equivalent to: 


C Example of tab input lines 
I=0 
10 CONTINUE 


after resolution of the tabs. 


Nonsignificant Blanks 


You can position as many blanks as you want in a statement or comment to improve 
readability. You can even imbed blanks within keywords or names, because the compiler 
ignores them. XL FORTRAN retains blanks inserted in character or Hollerith constants, and 
treats them as blanks within the data. 


Statement Labels 


A statement label is a sequence of one to five digits, one of which must be nonzero, that you 
can use to identify statements in a FORTRAN program unit. You can label a fixed—form 
statement by placing a statement label anywhere in columns 1 through 5 of its initial line. 
The compiler ignores statement labels that appear on continuation lines. 


Statement labels on free—format input lines must be the first nonblank characters (digits) on 
an initial line. You do not need blanks between the statement label and the first nonblank 
character following. 
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You must not give the same label to more than one statement in a program unit. Blanks and 
leading zeros are not significant in distinguishing between statement labels. You can label 
any statement, but you can only refer to executable statements and FORMAT statements 
using statement labels. You must place the statement making the reference and the 
statement you want to reference in the same program unit. 
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Chapter 3. Compiling, Linking, and Running Programs 


After you create the source file, there are three phases to preparing and running the 
program: 


1. Compiling 
2. Linking 
3. Running. 


This chapter discusses the details of using the XL FORTRAN compiler. It outlines how to 
invoke the compiler, how to specify the available compiler options, how to invoke the linkage 
editor, and how to run your compiled program. 


Note: Before using this compiler, it is important that the programmer first read the 
descriptions of the compiler options to understand the correct operation and 
limitations of this product. 


Invoking The Compiler 


To compile a source program, use the xlf command, which has the form: 


| + input_files 
cmd_line_opts cmd_line_opts input_files 


You can specify cmd_line_opts in the following ways: 





¢ —qoption. 
¢ Option flags (usually a single letter preceded by —). 


All options specified on the command line are in effect for all specified source files. (See 
“Specifying Options on the Command Line” on page 17 for the syntax.) 


A description of input_files is in “Input Files” on page 16. 


The flags and options you can use appear in the tables starting at “Summary of the XL 
FORTRAN Compiler Options” on page 18. 


The xlf command invokes the XL FORTRAN compiler. It compiles the FORTRAN source 
files, sends any .s files to the assembler, and then links the resulting object files with any 
object files and any libraries specified on the command line in the order indicated. It then 
produces a single executable file called a.out by default. You can use the —o flag to specify 
an alternative name for the resulting executable file. 


The xlf command executes the following sequence of programs. Each program executes, 
and then sends the results to the next step in the sequence. 


1. The process may call xlfentry (the compiler). 
The compiler consists of the following four phases: 


e Phase 1: Front end parsing and semantics handling 
e Phase 2: Optimization 
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e Phase 3: Register Allocation 
e Phase 4: Final Assembly. 


2. The process calls the assembler for .s files, if needed. 
3. It then calls the linkage editor Id (if you have not specified the —c compiler option). 
Environment Variables 


The message catalogs must be installed before the compiler will compile your program. 
Before you invoke the compiler, the following two environment variables must be set and 


exported: 
LANG Specifies the national language for message and help files. 
NLSPATH Specifies the path name of message and heip files. 


You can set the environment variable from the Bourne shell, Korn shell, or the C shell. To 
determine which shell is in use, issue the AIX echo command: 


echo SSHELL 
The Bourne shell path is /bin/sh, Korn shell is /bin/ksh, and C shell is /bin/csh. 


To set the environment variables from the Bourne or Korn shell, use the following 
commands: 


LANG=En_US 
NLSPATH=/usr/lpp/msg/%L/2N: /usr/lpp/msg/En_US/3N 
export LANG NLSPATH 


To set the variables system wide, so all users will have access to them, add the lines above 


to the file /etc/profile. To set them for a specific user only, add them to the file .profile in the 
user’s home directory. This will set the environment variables the next time the user logs in. 


To set the environment variables from the C shell, use the following commands: 


setenv LANG En_US 
setenv NLSPATH /usr/lpp/msg/%L/%N:/usr/lpp/msg/En_US/%N 


In the C shell, you cannot set environment variables system wide. To set them for a specific 
user only, add the lines above to the file .cshre in the user’s home directory. This will set the 
environment variables the next time the user logs in. 


En_US is the national language code for United States English. You can substitute any 
other valid national language code for En_US provided the message catalogs associated 
have been installed. 


These environment variables are initialized when the Operating System is installed, and may 
be different from the ones that you want to use with the compiler. To determine the national 
language code in use, issue the AIX echo command: 


echo SLANG 
echo SNLSPATH 


Configuration File 
The configuration file is a file that specifies information that the compiler uses when you 
invoke it. The default configuration file is provided at installation and stored as /etc/xIf.cfg. 


The configuration file contains the following attributes: 


use Values for attributes are taken from the named stanza in addition to the 
default stanza DEFLT. 


14 User’s Guide for XL FORTRAN 


crt 


mert 


gert 


xif 
xlfopt 


as 
asopt 


Id 
idopt 


options 


fsuffix 
osuffix 
ssuffix 


libraries 


libraries2 


proflibs 


Path name of the object file passed as the first parameter to the linkage 
editor. 


Path name of the object file passed as the first parameter to the link editor if 
you have specified the —p option. 


Path name of the object file passed as the first parameter to the link editor if 
you have specified the —pg option. 


The absolute file name of the compiler. 


List of options that if seen on the command line, are directed to the 
compiler. 


The absolute file name of the assembler. 


List of options that if seen on the command line, are directed to the 
assembler. 


The absolute file name of the linkage editor. 


List of options that if seen on the command line, are directed to the linkage 
editor. 


A string of option flags, separated by commas, to be processed by xIf as if 
these options were entered on the command line. 


The suffix for FORTRAN source programs. The default is f. 
The suffix for object files. The default is o. 
The suffix for assembler files. The default is s. 


Flags separated by commas to be passed to the linkage editor. It specifies 
the libraries used by the linkage editor at link—edit time for both profiling and 
non—profiling. 


Flags separated by commas to be passed to the linkage editor. It specifies 
the libraries used by the linkage editor at link—edit time. It should only 
include libraries for which the profiled version exists in the “proflibs” stanza. 


Flags separated by commas to be passed to the linkage editor when 
profiling flags are specified. It specifies the profiling libraries used by the 
linkage editor at link—edit time. It should only include libraries for which the 
non—profiled version exists in the “libraries2” stanza. 


The following is a typical configuration file: 


* The “libraries2” stanza should ONLY include libraries for which 
* profiled versions exist in the “proflibs” stanza — all others go 
* in “libraries”. 


* standard xlf compiler 


xlf: use = DEFLT 
ert = /lib/crt0.o 
mert = /lib/mcrt0.o 
gert = /lib/gcrt0.o 
libraries = —lxlf 
libraries2 = —lc,—lm 
proflibs = —lc_p,-—lm_p 


* common definitions 
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DEFLT: xlf /usr/lpp/xlf/bin/xlfentry 


as = /bin/as 
ld = /bin/ld 
options = —estart,—T512,—H512 


Input Files 


The input files to xIf are: 
¢« Source Files — .f 


All .f files are source files for compilation. The xIf command sends all source files to the 
compiler in the order in which they appear. If it cannot find a specified source file, XL 
FORTRAN produces an error message and the xIf command proceeds to the next file if 
one exists. 


¢ Object Files —.o 


All .o files are object files. The xIf command sends all .o files to the linkage editor Id at 
link—edit time unless you specify the —c option. After it compiles all the source files, the 
compiler link—edits the resulting .o files with any .o files that you specify in the input file 
list, and produces a single executable output file. 


e Assembler Files —.s 


The xlf command sends all the .s files to the assembler (as). The assembler output is 
object files that are sent to the linkage editor at link time. 


Output Files 


The output files produced include the following: 
¢ Executable Files — a.out 


If you do not specify the -c compiler option, XL FORTRAN produces an executable file in 
the current directory. Its default name is a.out. If you want to name the executable file 
explicitly, use the compiler option flag —ofilename. If you specify —c, XL FORTRAN does 
not produce an executable file. . 


¢ Object Files — filename.o 


If you do specify the -c compiler option, the XL FORTRAN compiler produces an object 
file for each of the .f source files, and the assembler produces an object file for each of 
the .s source files. No executable file is produced. The object files have the same prefix 
name as the source file, and appear in the current directory. 


¢ Listing Files — filename.|st 


By default, no listing is produced unless you specify one or more listing—related compiler 
options. The listing file has the same file name as the source prefix, but with an extension 
of .Ist. XL FORTRAN places listing files in the current directory. 
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XL FORTRAN provides compiler options to change any of the compiler’s default settings. 
You can specify options on the command line, and they remain in effect for all compilation 
units in the file, unless the compiler directive @PROCESS overrides them. Any options that 
you can specify on the command line can also appear in the configuration file, and remain in 
effect for all compilations unless the command line or compiler directive options override 
them. 
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Refer to “Summary of the XL FORTRAN Compiler Options” on page 18 and “Detailed 
Descriptions of the FORTRAN Options” on page 23 for a description of these options. 


Specifying Options on the Command Line 
There are two methods for specifying compiler options on the command line: 


* ~qgoption 





= me SD OpHOn 


You can specify options on the command line using the —qoption format. You can have 
multiple —qoptions in the same command line, but they must be separated by blanks. 
Option keywords can appear in either uppercase or lowercase, but you must specify the 
—q in lowercase. You can specify any —qoption before or after the file name. 


For example: 


xlf —qlist —qcharlen=1000 file.f 
xlf file.f -—qFIPS —qSTAT 


Some of the listed options allow you to specify suboptions. These suboptions are 
indicated on the command line with an equal sign following the —qoption_keyword. 
Suboptions must be separated with a colon (:). 


¢ Single and Multi-letter Flags 


The FORTRAN, C, and Pascal compilers use a number of common conventional flags. 
These flags are single letters and the XL FORTRAN compiler supports them. Each 
language has its own set of flags also. 


XL FORTRAN also supports flags directed to the AIX Id command. XL FORTRAN passes 
on those flags directed to Id at link time. All single letter flags are case sensitive. 


The following items apply for command line options: 


« You can specify flags that do not take arguments without separating blanks (with the 
exception of -pg which could be confused as —p and —g). 


For example: 

xlf -Ocv file.f 

has the same effect as 
xlf —-O -—c —v file.f 


You cannot run the —o flag together with other flags, because the —o option requires an 
argument. 


xlf -otest —cv test.f 


¢ You cannot specify flags such as —qlist on the command line without separating blanks. 
(For example, —qlistqsource is not valid.) 


¢ Command line options can also follow the file name. 
=pecitying Options in the Source File 
You can use the @PROCESS compiler directive in the source file to modify the options 


specified on the command line and in the configuration file, or to change the default setting 
temporarily if no command line or configuration file options are in effect. 
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The syntax of this compiler directive is: 


— @PROCESS eeseha 





@PROCESS can start in column 1 of the source statement, and you can specify options in 
columns 9 through 72. If the compiler directive does not start in column 1, it must start at or 
after column 7 in fixed—form, simitar to other FORTRAN statements. In free—form input 
format, the @PROCESS compiler directive can start in any column. Do not place a 
statement label on the @PROCESS compiler directive. You cannot specify an inline 
comment on the @PROCESS compiler directive. 


Separate options in the statement with commas or blanks. Option settings you designate 
with the @PROCESS compiler directive are effective only for the compilation unit in which 
the statement appears. If the file has more than one compilation unit, the option setting is 
reset to the configuration file setting, to the command line setting, or to the default setting 
before compiling the next unit. 


You can place the @PROCESS compiler directive anywhere before the END statement. You 
cannot use it in a continuation line. The SOURCE and NOSOURCE options are the only 
options that can appear in an @PROCESS compiler directive that occurs after the first 
statement of the program unit. All other options are only valid when they appear before the 
first statement of the program unit. 


Summary of the XL FORTRAN Compiler Options 
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The following tables show the compiler options available in the XL FORTRAN compiler that 
you can enter in the FORTRANsource code using the @PROCESS compiler directive, on 
the command line using the —q flags and the single or multi—letter flags, or in the 
configuration file. 


The tables show: 
¢« The option syntax for the @PROCESS compiler directive. 


(The uppercase letters in the option keyword represent the valid abbreviation for the 
option keyword. For example: OPT is a valid abbreviation for OPTimize.) 


¢ The equivalent —q form on the command line, or the corresponding single letter flag, if 
there is one. 


¢ The default value of that option if you do not specify it on the command line, in an 
@PROCESS compiler directive, or in the configuration file. 


¢ A brief description of the option’s effect during compilation. 
A detailed description for each compiler option follows the tables. 


Note: Before using this compiler, it is important that the programmer first read the 
descriptions of the compiler options to understand the correct operation and 
limitations of this product. 
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Options Describing the Input to the Compiler 


Compiler option Command line flag Description 

(@PROCESS Syntax) 

FREE FIXED Specifies format of input source 

FIXED program. 

MIXED NOMIXED Specifies case sensitivity. 

NOMIXED 

DLINES NODLINES Specifies whether lines with aD 

NODLINES in column 1 will be compiled or 
treated as comments. 

UNDEF NOUNDEF Indicates implicit typing of 

NOUNDEF variable names. 

CHARLEN(num) —qcharlen=num CHARLEN(500) Sets maximum character 
variable and character constant 
length. (1 to 32767) 

Ge cae numo,...nuUM,) |—qQci=numM, :numMo: ‘Num, | no poe | value Activates the specified 
eee eee compiler directives. 


ieee —qi4 Determines how the compiler 
NOI4 —qnoi4 interprets INTEGER and 
LOGICAL specifications and 
FUNCTION statements in 
which a length is not specified. 
DPC —qdpc NODPC Specifies how the compiler 
NODPC interprets basic real constants. 


ONETRIP —1 NOONETRIP Specifies whether DO loops in 

NOONETRIP the compiled program will be 
executed at least once if 
reached. 


BK_SIZE(num) BK_SIZE(50) Specifies the internal compiler 
CN_SIZE(num) CN_SIZE(1024) table sizes. The value num is 
ST_SIZE(num) ST_SIZE(2048) used to calculate the size of the 
NA_SIZE (num) NA_SIZE(32768) table. 

PD_SIZE(num) PD_SIZE(50) 
AUX_SIZE(num) AUX_SIZE(8192) 
TKQ_SIZE(num) TKQ_SIZE(10000) 
TKA_SIZE(num) TKA_SIZE(20000) 
SPILLsize(num) SPiLLsize(512) 


—N 
DBCS —qdbcs NODBCS Indicates whether character 
NODBCS —qnodbcs and Hollerith constants can 
contain DBCS characters. 
—Fconfig_fn —F/etc/xlf.cfg Names an alternative configu- 
—Fconfig_fn:stanza . ration file for the compiler. 


—Bprefix Constructs substitute compiler, 
assembler, or linkage editor 
program names. 

—tprograms Applies the —B flag prefix to the 
designated programs (c, a, I). 
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—Wprogram, option,, 


Gives the listed options to the 
options,... option, compiler program program. 


—Idir Determines search path if file 
name in the INCLUDE compiler 
directive does not start with an 
absolute path. 


Options Affecting the Compiler Object Code to be Produced 
















































Compiler option Command line flag Description 
(@PROCESS Syntax) 
OBJect —qobj OBJect Specifies whether an 
NOOB\VJect —qnoobj object file will be 
produced. 
CHECK —C NOCHECK Specifies whether run 
NOCHECK 
bounds and character 
substring expressions will 
‘| be performed. 
OPTimize NOOPTimize Specifies whether code 
NOOPTimize optimization during 
compilation is to be 
EXTCHK —gextchk NOEXTCHK Specifies whether type 
NOEXTCHK —qnoextchk checking information will 
be set up for external 


time checking of array 
RECUR —qrecur NORECUR Specifies whether 
NORECUR —qnorecur subprograms may be 

called recursively. 

performed. 

names. 











































EXTNAME —qgextname NOEXTNAME Specifies whether 

NOEXTNAME —qnoextname compiler generated 
external names will be 
postfixed with an 
underscore. 

IEEE(Near) IEEE(Near) Indicates rounding mode 

IEEE(Minus) of constant floating—point 








IEEE(Plus) 
IEEE(Zero) 


RNDSNGL 
NORNDSNGL 






expressions at compile 
time. 



















—qrndsng| NORNDSNGL 


—qnorndsngi 


RRM —qrrm 
NORRM 


FOLD —qfold FOLD 
NOFOLD —qnofold 
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Specifies whether 
REAL*4 floating—point 
expressions will be 
rounded to single 
precision. 


Specifies run-time 
‘rounding mode. 


Specifies whether 
constant floating—point — 
expressions are to be 
evaluated at compile 
time. 
















Specifies whether 
multiply—add instructions 
will be generated. 











MAF —qmaf MAF 
NOMAF —qnomaf 

DBG NODBG 
NODBG 


_ -_ Co 


Options Describing the Compiler Output 


Compiler option Command line flag Description 

(@PROCESS Syntax) 

FIPS —qfips NOFIPS Specifies whether 

NOFIPS —qnofips flagging of full ANSI 
FORTRAN 77 standard 
language will take place. 

SAA —qsaa NOSAA Specifies whether SAA 

NOSAA —qnosaa 


FORTRAN standard 
language flagging will 
SOURCE —qsource NOSOURCE 
NOSOURCE —qnosource 








Specifies whether debug 
information will be 
generated for use by dbx. 


If all single precision 
floating point overflows 
must be detected, use 
this option. See the 

detailed description of 
this option. 



























take place. 








Specifies whether a 
source listing will be 
produced. 


XREF —qxref NOXREF Specifies whether a 
NOXREF —qnoxref cross-reference listing is 
XREF(FULL) —qxref=full to be produced. 


ATTR —qattr NOATTR Specifies whether an 
NOATTR —qnoattr attribute listing will be 
ATTR(FULL) —qattr=full produced. 


LIST —qlist NOLIST Specifies whether an 
NOLIST —qnolist 


object listing is to be 
produced. 

LISTOPT —qlistopt NOLISTOPT 

NOLISTOPT —qnolistopt 


Specifies whether the 
STATS —qstat NOSTATs 
NOSTATs —qnostat 


settings of all options are 
to be displayed in the 

PHSINFO —qphsinfo NOPHSINFO 

NOPHSINFO —qnophsinfo 






















































listing. 


Specifies whether table 
size and timing statistics 
will be reported in the 

listing. 









Specifies whether phase 
timing information will be 
displayed at the terminal. 


FLAG (sev1,sev2) —qflag=sev1 :sev2 FLAG(L,L) Specifies severity level of 
—w diagnostic messages to 
be reported. 
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HALT(U) 





Stops the compiler after 
the first phase depending 
onthe severity of compile 


HALT (sev) —qhalt=sev 
messages. 
—C compile and link—edit Requests that the object 
file not be sent to the 
linkage—editor. 
Ld —Q+names Specifies whether 


subroutine inlining is to 

be performed. 
listing suppression Requests listing 

suppression. 

Options Used for Debugging 

Compiler option Command line flag Description 
(@PROCESS Syntax) 
-V no verbose Generates compiler 

progress information. 


—# no trace Displays the same 
information as in -—v 
without invoking the 
compiler. 

no profiling Sets up the object file for 
a eine 


Options Used for the Linkage Editor 


Compiler option Command line flag Description 
(@PROCESS Syntax) 

—oname a.out Specifies a name for the 
object module. 

—lkey libraries listed in xlf.cfg | Searches the specified 

are searched library file. 

—Ldir standard directories Looks in dir for files 

specified by the —I keys. 
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Conflicting Options 


The following table shows: 


¢ Compiler options which conflict 
¢ The resolution which is performed by the compiler when such options are specified at any 
given level. 


anopint | XREFIATTASOURCENISTOPTILISTISTAT [-anopint 
Ce 


If more than one variation of the same option is specified (with the exception of XREF and 
ATTR listed above), then the setting of the option specified last will be assumed. 














If a command line flag is valid for more than one compiler program (for example, compiler, 
linkage editor, assembler), you must specify it in xlfopt, ldopt, or asopt in the 
configuration file. The command line flags must appear in the order that they are to be 
directed to the appropriate compiler program. 


Detailed Descriptions of the Options 
The following information shows the details associated with the compiler options described 
in the previous tables. All options displayed in capitals can be used with the @PROCESS 
compiler directive within your FORTRAN source program. You can specify options shown in 
lowercase directly on the command line. The default value of that option if it is not specified 
in the configuration file, on the command line, or in aan @PROCESS compiler directive is 
underlined. 


Options Describing the Input to the Compiler 


FREE | FIXED | -k 


FREE or FIXED indicates whether the input source program is in free format or in fixed 
format. 


MIXED | NOMIXED | -U 


MIXED specifies case sensitivity. If MIXED is specified, the source is not folded and 
identifiers are case sensitive. You must enter keywords in lowercase or XL FORTRAN treats 
them as identifiers. If NOMIXED is specified, the source is folded to lowercase. 


DLINES | NODLINES | -D 


If DLINES is specified, the lines that have a D in column 1 are compiled. If NODLINES or 
_ nothing is specified, those lines are treated as comments. 


UNDEF | NOUNDEF | -u 


UNDEF specifies no implicit typing of variable names. It has the same effect as the 
IMPLICIT NONE statement. NOUNDEF specifies implicit typing. 
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CHARLEN(num | 500) | -qcharlen=num 


CHARLEN specifies the maximum length permitted for any CHARACTER variable, 
CHARACTER array element, CHARACTER function name, CHARACTER entry name, 
CHARACTER named constant, or CHARACTER literal string (up to 32767). 


Cl(num, ,numa,...nuMy) | -qei=num, :numo....:nuM, 


Cl specifies the identification numbers of the INCLUDE files to be processed (where 
1<=num,<=255 and 1<=n<=255). The set of identification numbers recognized is the union 
of all identification numbers specified on all occurrences of the CI option. 


14 | NOI4 | -qi4 | -qnoi4 


These options specify how the compiler interprets INTEGER and LOGICAL specification 
statements and FUNCTION statements in which a length is not specified. This option is to 
assist migration from 16—bit machines. The default is 14, which causes the compiler to 
interpret INTEGER and LOGICAL specifications as INTEGER*4 and LOGICAL*4 
respectively. If NOI4 is specified, the compiler interprets INTEGER and LOGICAL 
specifications as INTEGER*2 and LOGICAL*2 respectively. 


Integer constants in the range —32768 to 32767 are interpreted as having length 2 when 
NOI4 is specified and length 4 otherwise. When NOI4 is specified, such integer constants 
must not be passed to dummy arguments of type INTEGER*4 without being explicitly 
defined as INTEGER*4 in a PARAMETER statement. 


Logical constants .TRUE. and .FALSE. are interpreted as having length 2 when NOI4 is 
specified and length 4 otherwise. When NOI4 is specified, such logical constants must not 
be passed to dummy arguments of type LOGICAL*4 without being explicitly defined as 
LOGICAL*4 in a PARAMETER statement. When NOIG4 is specified, logical expressions 
have type size equal to the largest type size of its operands. If 14 is specified, all logical 
expressions have type LOGICAL*4. 


DPC | NODPC | -qdpc 


When DPC is specified, all basic real constants (for example, 1.1) are treated as double 
precision constants. 


ONETRIP | NOONETRIP | -1 


—Ntnum 
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ONETRIP specifies that DO loops in the compiled program are to be executed at least once, 
if reached, even if the iteration count is 0. This option provides compatibility with ANSI 
FORTRAN 66, whereas in ANSI FORTRAN 77, DO loops are not performed if the iteration 
count is 0. If NOONETRIP is specified, DO loops will not be executed if the iteration count is 
0. 


Specifies the internal compiler table sizes. The value tf indicates the type of the table. The 
value num is used to calculate the size of the table. The default table sizes for each type are: 


B 50 Maximum number of nested IF or DO blocks. 

C 1024 Maximum number of constants. 

D 2048 Maximum number of variables. 

N 32768 Maximum number of bytes to store the names of variables. 
P 50 Maximum number of subprograms. 

A 8192 Maximum number of dictionary auxiliary table entries. 

Q 10000 Maximum number of tokens in the source file. 

T 20000 Maximum number of bytes to store the tokens. 

S 512 Maximum number of spill variables. 
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-N without any arguments specifies that help information for the -Ntnum option should be 
displayed. 


DBCS | NODBCS | -qdbcs | -qnodbcs 


Indicates to the compiler whether character and Hollerith constants can contain Double Byte 
Character Set (DBCS) characters. 


—Fconfig_fn | -Fconfig_fn:stanza | —F/etc/xif.cfg 


The configuration file specifies the location of various files required by the compiler. A default 
configuration file (/etc/xIf.cfg) is supplied at installation time. This option allows an 
alternative configuration file to be specified. It also specifies what stanza to use within the 
configuration file. (See “Configuration File” on page 14 for more information.) 


—Bprefix 
This option is used to construct substitute compiler, assembler, or linkage editor program 
names. prefix defines part of a path name to the new programs. To form the complete path 
name for each program, xIf adds prefix to the standard program names. The standard 
program names for the compiler, assembler, and linkage editor are xlfentry, as, and Id 
respectively. 

—torograms 


Applies the —B flag prefix to the designated programs. programs can be one or more of ¢, a, 
or | corresponding to compiler, assembler, and linkage editor respectively. 


-Wprogram,option, options, ... option, 


Gives the listed options to the compiler program program. program is ¢, a, or | 
corresponding to compiler, assembler, and linkage editor respectively. Valid compiler options 
are the @PROCESS options listed in “Summary of the XL FORTRAN Compiler Options” on 
page 18. For more information on the valid assembler and linkage editor options see the Alx 
Commands Reference for IBM RISC System/6000, SC23-2199. 


—Idir 
Specifies the search path if the file name in the INCLUDE compiler directive does not start 
with an absolute path. dir must be a valid path name (for example /u/dir or /tmp or ./subdir). 
The compiler appends a / to the dir and then concatenates with the file name before making 


a search. If more than one -I option is specified in the command line, files are searched in 
the order of the dir as they appear on the command line. 


Options Affecting the Compiler Object Code to be Produced 


OBJect | NOOBvVect | —qobj | —-qnoobj 


Specifies whether or not you want an object file produced. If NOOBJect is specified, only 
the first phase of the compiler is completed. See “Invoking the Compiler” on page 13 for 
information on the compiler phases. 


CHECK | NOCHECK | -C 


CHECK specifies that run-time checking of array bounds and character substring 
expressions is to be performed. NOCHECK turns this checking off. 


RECUR | NORECUR | —qrecur | —-qnorecur 


If the RECUR option is specified for a subprogram, that subprogram may call itself 
recursively. If a subprogram is to be called recursively at any point in the program, the 
RECUR option must be specified for that subprogram. 
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OPTimize | NOOPTimize | -O 
Specifies whether code optimization is to be performed during the compilation. 
NOOPT Performs no optimization of generated code. 
OPT Performs optimization using some or all of the following techniques: 


¢ Value numbering 

¢ Straightening 

¢ Common expression elimination 

¢ Code motion 

e Reassociation and strength reduction 
¢ Constant propagation 

¢ Store motion 

¢ Dead store elimination 

¢ Dead code elimination 

¢ Inlining (if the -Q compiler option is specified) 
¢ Global register allocation 

¢ Instruction scheduling. 


EXTCHK | NOEXTCHK | —qextchk | —qnoextchk 


EXTCHK specifies that type checking information is to be set up for common blocks and 
procedure references, to be later used by Id for the purpose of detecting mismatches across 
compilation units. EXTCHK verifies that actual arguments agree in type, passing mode, and 
class. It also checks actual and dummy arguments and attributes for agreement and verifies 
that declarations of common blocks are consistent. 


EXTNAME | NOEXTNAME | —qextname | —qnoextname 


EXTNAME specifies that all compiler generated external names, with the exception of main 
program names, are postfixed with an underscore. The EXTNAME option is to aid in porting 
RT code to the RISC System/6000 computer if it contains the following: 


e C, Assembler, or Pascal routines, referenced from FORTRAN, that contain an underscore 
at the end of the routine name 

¢ C, Assembler, or Pascal routines, calling FORTRAN routine that contains an underscore 
at the end of the routine name 

¢ Subroutines or functions in FORTRAN source code that are named main, MAIN, or with 
system command or subroutine names 

e C, Assembler, or Pascal external or global data items that are shared with a FORTRAN 
routine that contains an underscore at the end of the data name. 


IEEE(Near | Minus | Plus | Zero)| —yn | -ym | -yp | -yz 
Specifies the rounding of constant floating—point expressions at compile time: 


round to nearest 

round toward minus infinity 
round toward plus infinity 
round toward zero. 


RNDSNGL | NORNDSNGL | —qrndsngI | -qnorndsngl 


Specifies strict adherence to the IEEE standard in that the result of each single precision 
floating—point operation will be rounded to single precision. 


NDUAZ5 
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RRM | NORRM | -qrrm 


Specifies the run-time rounding mode. This option is used if the run—time rounding mode is 
round to +infinity, —infinity, or is not known. 


EOLD | NOFOLD | —-qfold | —qnofold 
FOLD specifies that constant floating—point expressions are to be evaluated at compile time. 
MAE | NOMAF | —qmaf | —-qnomaf 


Specifies whether or not the compiler is to generate multiply—add instructions. Multiply—add 
instructions may affect the precision of floating—point intermediate results, by giving better 
performance and better accuracy. 


DBG | NODBG | -g 
Specifies that debug information is to be generated for use by the symbolic debugger. 
XFLAG=DD24 | —qxflag=dd24 


Generates floating point no—op instructions to cause detection of overflow in rounding 
floating point intermediate results to single precision. See Appendix F, “Single Precision 
Floating Point Overflow” for more information. 


Options Describing the Compiler Output 


FIPS | NOFIPS | -qfips | -qnofips 
Specifies whether or not Full ANS! FORTRAN 77 standard language flagging is to be 
performed. 
SAA | NOSAA | -qsaa | -qnosaa 
Specifies whether or not SAA FORTRAN standard language flagging is to be performed. 
SOURCE | NOSOURCE | —qsource | —-qnosource 


Specifies whether or not the source listing is to be produced. Specifying SOURCE as an 
option implies that a listing will be produced, unless —qnoprint is specified. No listing is 
produced by default. Parts of the source can be selectively printed by using SOURCE and 
NOSOURCE throughout the program. 


XREF | NOXREF | XREF(FULL) | —qxref | —-qnoxref | —qxref=full 


Specifies whether or not a cross-reference listing is to be produced. If only XREF is 
specified, only identifiers that are used will be reported. If XREF(FULL) is specified, all 
identifiers that appear in the program, whether used or not, will be reported. Both XREF and 
XREF(FULL) imply that a listing will be produced, unless —qnoprint is specified. No listing is 
produced by default. 


ATTR | NOATTR | ATTR(FULL) | —qattr | —qnoattr | —qattr=full 


Specifies that an attribute listing is to be produced (consisting of the attributes of names). If 
only ATTR is specified, only identifiers that are referenced will be reported. lf ATTR(FULL) is 
specified, all identifiers, whether referenced or not, will be reported. Both ATTR and 
ATTR(FULL) imply that a listing will be produced unless —qnoprint is specified. No listing is 
produced by default. 


LIST | NOLIST | —qlist | -qnolist 


Specifies whether or not an object code listing is to be produced. LIST implies that a listing 
will be produced, unless —qnoprint is specified. No listing is produced by default. 
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LISTOPT | NOLISTOPT | —qlistopt | -qnolistopt 


Specifies whether or not the settings of all options are to be displayed as part of the listing. 
(The default is to display the settings of specified options only.) LISTOPT implies that a 
listing will be produced, unless —qnoprint is specified. No listing is produced by default. 


STATs | NOSTATs | —qstat | -qnostat 


Specifies whether or not table size statistics and timing statistics are to be reported as part 
of the listing. STAT implies that a listing will be produced, unless —qnoprint is specified. No 
listing is produced by default. | 


PHSINFO | NOPHSINFO | -qphsinfo | —-qnophsinfo 


Specifies whether or not phase timing information is to be displayed. 


FLAG(sev7,sev2) | FLAG(L,L) | -qflag=sev7:sev2 | -w 


Specifies the severity level of diagnostic messages to be reported: 


sev7: message level reported on listing 
sev2: message level reported on terminal. 


where sev1/seva is I, L,W, E, S, or Q meaning informational, language, warning, error, or 
severe error, and Q@ means do not report any messages at all. 


Both sev? and sev2 must be specified. Messages of the specified severity level or higher will 
be reported. When —w is specified on the command line, it is equivalent to specifying 
FLAG(E,E) (that is, warning and informational messages will be suppressed). 


HALT (sev) | HALT(U) | -qhalt=sev 


-C 


Stops the compiler after the first phase if the maximum severity of messages encountered at 
compile time equals or exceeds the specified severity. 


sev is I, L, W, E, S, or U meaning informational, language, warning, error, 
severe error, or unrecoverable error. 


Does not send the completed object file to the ld command for link—editing. With this flag, 
the output is a .o file for each source file. 


—Q+names | —Q-names | -Q | -Q! 


~qnoprint 


Inlining is performed if possible. Instead of the normal subprogram call, inline code is 
produced for references to subprograms that are fewer than 100 intermediate instructions, 
and are in the same file as the calling program. +names and —names specify the names of 
subprograms that are and are not, respectively, to be inlined. The —Q flag without any list will 
cause all appropriate subprograms to be inlined. -Q! causes no inlining to be done. OPT 
must be specified for inlining to take effect. If inlining has been specified, the following 
options cannot be specified in an @PROCESS statement unless that statement occurs 
before the first compilation unit: OBJect, HALT, MAF, RNDSNGL, LIST, PHSINFO, and the 
table size options. 


Suppresses the production of listings. If there are any options specified that cause a listing 
to be produced, the —qnoprint option sends the listing file to /dev/null, which effectively 
overrides all listing options. 
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Options Used for Debugging 


-V 
Instructs the compiler to generate information on the progress of the compilation. 
~# 
Displays the same information as with —v without invoking the compiler. 
-P|-pg 


Sets up the object file for profiling. 


—p prepares the program so that the AIX prof command can generate a run-time profile. 
The compiler produces code that counts the number of times each routine is called. If 
programs are sent to Id, the compiler replaces the startup routine with one that calls the 
monitor subroutine at the start and writes a mon.out file when the program ends normally. 
You can use the prof command to generate a run-time profile. 


~—pg is like —p, but invokes a run-time recording mechanism that keeps more extensive 
statistics and produces a gmon.out file when the program ends normally. You can then use 
the gprof command to generate a run-time profile. 


For more information on profiling, the Id, prof, and gprof commands, see the AlX 
Commands Reference for IBM RISC System/6000, SC23-2199. 
Options Used for the Linkage Editor 
The following are common Id options that can be specified in the xIf command. Other Id 
options can also be specified. 
—oname | a.out 
Specifies a name for the object module. This is an Id option, so conflicts are handled by Id. 
—lkey 


Searches the specified library file, wnere key selects the file libkey.a. This is an Id option, so 
conflicts are handled by Id. 


—Ldir 


Looks in dir for files specified by the -I keys. This is an Id option, so conflicts are handled by 
Id. 


Invoking the Linkage Editor 


If you specify -c as a compiler option, X. FORTRAN only compiles the source program and 
creates an object file. To perform the linkage editor phase, invoke the linker using the Id 
command, or issue the xIf command a second time without the —-c option and specifying the 
desired object file (.o) names. 


Note: See the AlIX Commands Reference for IBM RISC System/6000, SC23-2199. for a 
description of the linkage editor and link—edit flags. 
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Running the Program 


You can run the program by entering the path name and file name of the executable object 
file and any desired run-time parameters on the command line. If the ~oname compiler 
option has been specified, the file name will be name. The default file name is a.out. 


The following environment variables are recognized at run time: 
¢ xrf_messages 


If xrf_messages is set to “no”, run—time messages are suppressed. If you do not set it or 
you specify anything else, run-time messages are issued to standard error. 


° TMPDIR 


This environment variable allows you to choose a directory to place any temporary files 
that may be created when when opening a file whose STATUS=’,SCRATCH’. If TMPDIR 
has not been set, temporary files will be placed in /tmp. 


The following is an example of how to set environment variables: 


¢ From the C shell: setenv xrf_messages no 
setenv TMPDIR /u/joe/temp 


¢ From the Bourne shell: xrf_messages=no 
TMPDIR=/u/joe/temp 
export xrf_messages TMPDIR 


See “Environment Variables” on page 43 for more information. Also, for more information on 
a.out see the AlX Commands Reference for IBM RISC System/6000, SC23-2199. 


FORTRAN Exception Handling 
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The following cases will cause an exception at run time: 
1. Fixed—point division by zero 


2. Character substring expression out of bounds if you specify the CHECK option at compile 
time 


3. Array subscript out of bounds if you specify the CHECK option at compile time 


4. The flow of control in the program reaches a location for which a semantic error with 
severity of S was issued when the program was compiled. 


If you call SIGNAL (CALL SIGNAL(SIGTRAP,x1l__trce)) to install the default exception 
handler before the exception occurs, a diagnostic message and a traceback showing the 
offset number of each routine called leading to the exception are written to standard error 
after the exception occurs. If the exception handler is not installed, a core image file is 
produced. 


You can then use the dbx symbolic debugger to determine the error. dbx provides a specific 
error message describing the cause of the exception. The dbx where subcommand or dbx 
trace subcommand provides a complete traceback showing the FORTRAN source line 
number and the sequence of instructions leading to the exception. See the AIX Commands 
Reference for RISC System/6000, SC23-2199 for information about the dbx debugger. 


User’s Guide for XL FORTRAN 


The XL FORTRAN Run Time Environment 
Object code produced by the XL FORTRAN compiler may call several run-time 
subprograms. The XL FORTRAN Run Time Environment includes a library of run-time 
subprograms (libxif.a) and also facilities for producing run-time diagnostic messages in the 
national language appropriate for your system. Normally, you cannot run object code 
produced by the FORTRAN compiler without the FORTRAN Run Time Environment. 


External Names in the Run Time Environment 
Run-time subprograms are collected into libraries. When you use the xIf command without 
the —c option, the compiler invokes the linkage editor and gives it the names of the libraries 
that contain run-time subprograms called by FORTRAN object code. 


The names of these run-time subprograms are external symbols. When object code 
produced by the FORTRAN compiler calls a run-time subprogram, the .o object code file 
contains an external symbol reference to the name of the subprogram. A library contains an 
external symbol definition for the subprogram. The linkage editor resolves the run—time 
subprogram call with the subprogram definition. 


You should avoid using names in your XL FORTRAN program that conflict with names of 
run—time subprograms. Conflict can arise under two conditions: 


e¢ The name of subroutine, function, or common block defined in a FORTRAN has the same 
name as a library subprogram. 


* The FORTRAN program calls a subroutine or function with the same name as a library 
subprogram but does not supply a definition for the called subroutine or function. 


Avoiding the Use of Run-Time Subprogram Names 


If you define a subroutine, function, or common block with the same name as a run-time 
subprogram, your definition of that name may be used in place of the run-time subprogram, 
or it may cause a link—edit error. To avoid conflicts with the names of the external symbols in 
the XL FORTRAN library, the names you use should not begin with the underscore (_) or the 

_ number sign (#), and should not be names that are the same as the service and utility 
subprograms that are provided in the library. (See Appendix B of the Reference Manual for 
IBM AIX XL FORTRAN Compiler/6000 for a list of these subprograms.) You. should also 
avoid naming a subroutine or function main since XL FORTRAN defines an entry point main 
to start your program. 


Object code produced by the XL FORTRAN compiler can call some run-time routines from 
libraries other than the XL FORTRAN Run Time Environment. 


References to Undefined Run-Time Subprogram Names 


You should not leave names of subroutines or functions undefined. If your FORTRAN code 
Calls a subroutine or function without defining it, the linkage editor will attempt to resolve the 
reference in the XL FORTRAN Run Time Environment or in any of the other libraries that XL 
FORTRAN uses for run-time routines. Resolution by the linkage editor may appear to be 
successful but the program result may be unpredictable. 


Note: XL FORTRAN uses some subprograms from the C (libc.a) and mathematics 
(libm.a) libraries. Each of these libraries contains several subprograms with common 
spellings. (For example, read and write.) 
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AIX Shared Libraries 
The run-time library included in the XL FORTRAN Run Time Environment is an AIX shared 
library. Shared libraries are processed by the linkage editor to resolve all references to 
external names. This limits the possibility of problems between user—defined subroutine and 
function names and the names‘of any routines that are called by run—time subprograms. 


For example, when you invoke the FORTRAN PAUSE statement, the XL FORTRAN 
compiler generates a call to the run—time subroutine #PAUSECHR. This run-time 
subprogram in turn calls AIX system routines to write the given character constant to 
standard output. All calls within #PAUSECHR are resolved within the XL FORTRAN Run 
Time Environment and other libraries. This allows a FORTRAN program to define and calla 
routine with the same name as any of the system routines called by #PAUSECHR, and that 
name will not conflict with any calls in #PAUSECHR. 


The description of the ld command in the AlX Commands Reference for RISC System/6000, 
SC23-—2199 contains further details about creating and using shared libraries. 
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Chapter 4. Input/Output 


The following chapter discusses support for the IBM AIX Version 3 for RISC System/6000 
file system by the XL FORTRAN compiler and Run Time Environment. 


File Formats 
XL FORTRAN implements files in the following manner: 
¢ Sequential unformatted files: 


The requirements on these files make it unlikely that you will read or write them by any 
means other than FORTRAN input/output. A 4—byte integer containing the length of the 
record precedes and follows each record. 


e Sequential formatted files: 


The XL FORTRAN input/output system breaks sequential formatted files into records 
while reading, by using each new—line character as a record separator. 


On output, the input/output system writes a new—line character at the end of each record. 
Programs can also write new—line characters for themselves. This practice is not 
recommended, because the effect is that the single record that appears to be written is 
treated as more than one record when being read or back spaced over. 


¢ Direct files: 


XL FORTRAN simulates direct files with AIX files containing a single record, whose length 
is a multiple of the record length of the file. You must specify, in an OPEN statement, the 
record length (RECL) of the direct file. X_ FORTRAN uses this record length to 
distinguish records from each other. 


For example, the third record of a direct file of record length 100 bytes would start at byte 
200 of the single record of an AIX file and end at byte 299. 


If the length of the record of a direct file is greater than the total amount of data you want 
to write to the record, XL FORTRAN pads the record on the right with blanks (X‘20’). 





File Names 


A valid AIX file name must have a full path name of total length <=2048 characters, with 
each file name being <=256 characters long (though you need not specify the full path 
name). 


You must specify a valid AIX file name in such places as: 


¢ The FILE= specifier of the INQUIRE statement 
¢ The FILE= specifier of the OPEN statement 
e The INCLUDE compiler directive. 
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Preconnected Files 


The system preconnects units 0, 5, and 6 when a program starts: 


e Unit 0 is the standard error 
¢ Unit 5 is the standard input for sequential formatted input/output 
e Unit 6 is the standard output for sequential formatted input/output. 


All other units are also preconnected when run time begins. Unit n is connected to a file 
named fort.n. These files need not exist, and XL FORTRAN does not create them unless. 
you use their units. The default connection is for sequential formatted input/output. 


Note: Because unit 0 is preconnected for standard error, you cannot use it for the following 
statements: OPEN, CLOSE, ENDFILE, BACKSPACE, REWIND, and direct 
input/output. 





File Positioning 
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ANSI! X3.9-1978 does not specify the initial position of a file that is explicitly opened for 
sequential input/output. Therefore, XL FORTRAN has adopted the following conventions. 


On an explicit OPEN (by an OPEN statement): 
¢ Ifthe file STATUS is NEW or SCRATCH, the file is positioned at the beginning. 
¢ If STATUS = ‘OLD’ is specified, the file is positioned at the end. 


— If the next operation is WRITE, the next record is appended to the file. 
— If the next operation is READ, the file is repositioned to the beginning so that the first 
record is read. 


* If STATUS = ‘UNKNOWN’ is specified, and the file exists, the file is positioned as if 
STATUS = ‘OLD’ were specified. Otherwise, the file is positioned as if STATUS = ‘NEW’ 
were specified. 


The implementation of implicit OPEN is equivalent to an explicit OPEN with STATUS = 
‘NEW’ (that is, the file is positioned at the beginning). 


e If the first input/output operation on the file is READ, it will read the first record of the file. 


e If the first input/output operation on the file is WRITE, it will overwrite the first record of the 
file. 


Therefore, to append to an existing file, the file must be explicitly opened with an OPEN 
statement with STATUS = ‘OLD’ specified before the WRITE statement is performed. 
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Chapter 5. Optimization 


The following chapter discusses optimization techniques used by XL FORTRAN. It also 
Outlines some programming techniques that you can employ to take advantage of the 
optimization features of the compiler. 


Optimization Levels 
Optimization requires additional compile time, but usually results in reduced run time. 


XL FORTRAN allows you to select whether or not you want optimization to be performed at 
compile time. The NOOPT compiler option (which is the default) disables the optimization of 
your program. The OPT option performs the optimization techniques outlined below: 


¢ Value numbering 

¢ Straightening 

¢ Common expression elimination 

¢ Code motion 

*« Reassociation and strength reduction 
¢« Constant propagation 

¢ Store motion 

¢ Dead store elimination 

¢ Dead code elimination 

* Inlining (if the -Q compiler option is specified) 
¢ Global register allocation 

¢ Instruction scheduling. 


NOOPT is the recommended level of optimization for a program you are debugging, or 
compiling to check syntax. It provides the fastest compile time, but the least efficient run 
time. The compiler may perform some minor optimizations. 


OPT performs control and data flow analysis for the entire program unit. This analysis allows 
optimizations such as common expression elimination, strength reduction, code motion, and 
global register assignment. Particular attention is paid to innermost loops and to subscript 
address calculations. Variables are retained in registers where possible to eliminate 
unnecessary loads and stores. 


Optimization does not move any code out of a loop that might cause an exception unless the 
exception will occur anyway. For example, in the loop: 


DO 10 J=1,N 
IF (K.NE.0) M(J)=N/K 
10 CONTINUE 


code evaluating the expression N/K could be moved outside the loop, because it is invariant 
for each iteration of the loop. However, it will not be moved because kK could be 0. 


Optimization Techniques 
Several techniques are used by the optimizer: 


Value Numbering 


Value numbering involves local constant propagation, local expression elimination, and 
folding several instructions into a single instruction. 
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Straightening 


Straightening is rearranging the program code to minimize branching logic and to combine 
physically separate blocks of code. 


Common Expression Elimination 


In common expressions the same value is recalculated in a subsequent expression. The 
duplicate expression can be eliminated by using the previous value. This is done even for 
intermediate expressions within expressions. For example, if your program contains the 
following statements: 


10 A=C+D 


20 F=C+D+E 


the common expression C+D is saved from its first evaluation at statement 10, and is used at 
statement 20 in determining the value of F. 


Code Motion 


If variables used in a computation within a loop are not altered within the loop, it may be 
possible to perform the calculation outside of the loop and use the results within the loop. 


Reassociation 


Reassociation rearranges the sequence of calculations in a subscript expression producing 
more candidates for common expression elimination. 


Strength Reduction 


Less efficient instructions are replaced with more efficient ones. For example, in array 
addressing, an add instruction replaces a multiply. 


Constant Propagation 

Constants used in an expression are combined and new ones generated. Some mode 
conversions are done and compile-time evaluation of some intrinsic functions takes place. 
Store Motion 


Store motion moves store instructions out of existing loops. 


Dead Store Elimination 

The compiler eliminates stores when the value stored is never referred to again. For 
example, if two stores to the same location have no intervening load, the first store is 
unnecessary, and is therefore removed. 

Dead Code Elimination 

The compiler may eliminate code for calculations found to be unnecessary. Other 
optimization techniques may cause code to become dead. 

Inlining 


Inlining causes all program units within a single source file to be compiled at one time. It 
replaces subprogram calls with the actual code of the subprogram. 


User’s Guide for XL FORTRAN 


Global Register Allocation 


Variables and expressions are allocated to available hardware registers by coloring. 


Instruction Scheduling 


Reorders instructions to minimize execution time. 





Debugging Optimized Code 


Debugging optimized programs presents special problems. Changes made by optimization 
can be confusing. 


Use debugging techniques that rely on examining values in storage with caution. A common 
expression evaluation may have been deleted or moved. Note that variables may have been 
assigned to a register, and will not appear in storage. 


Programs that appear to work properly when compiled with no optimization may fail when 
compiled with OPT. This is often caused by program variables that have not been initialized. 
If a program that worked with NOOPT fails when compiled with OPT, it is a good idea to look 
at the cross—reference listing. Check for variables that are fetched but never set, and for 
program logic that allows a variable to be used before being set. 


Optimized code can fail if a FORTRAN program contains invalid code. For example, if the 
FORTRAN program passes an actual argument that also appears in a common block in the 
called routine, or if two or more dummy arguments are associated with the same actual 
argument. . 





Increasing Optimization of Your Program 


The following section contains suggestions on how to use the optimization features. 


Optimization Recommendations 
¢ Use NOOPT during program development for syntax checking, testing, and debugging 
purposes. Debugging programs with dbx is straightforward, with none of the side effects 
of optimization. 


¢ Use OPT once a program has been debugged. If the program is to be run more than 
once, or if the program takes more than a few CPU seconds to run, the optimization 
savings at run time may exceed the cost of compiling with OPT in effect. 


¢ More virtual storage, system page space, and longer compilation times are required for 
optimization. Depending on the complexity and number of loops in the program 
(Opportunities for optimization), and the number of identifiable elementary expressions, 
the compilation time may increase greatly. You may have to compile larger or complex 
programs with NOOPT if they fail to compile with OPT because of storage exhaustion. 


Programming Recommendations 
The following section contains programming suggestions to take advantage of the 
optimization features. 


Input/Output 


Optimization has little effect on the run time of input/output statements. Here are some 
guidelines to improve input/output run—time performance: 
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° Unformatted input/output takes less processing time and uses less storage than formatted 
input/output. Unformatted input/output also maintains the precision of the data items 
being processed. 


e Use an implied DO in input/output statements instead of a DO loop containing the 
input/output statement. For example: 


DIMENSION A(200) 
WRITE(3) (A(I),I=1,100) 


is more efficient than: 


DIMENSION A(200) 
DO I=1,100 
WRITE (3) (AG) 
END DO 
If the entire array is to be read or written in the storage order, use the array name without 
the implied DO adjusting the format appropriately. For example: 


DIMENSION A(200) 


WRITE(3,10) (A(I),1I=1,200) ! This writes the contents of A. 
10 FORMAT (’ ’,10F6.2) 


Variables 
¢ Certain variables cannot always be optimized: 


- Variables in input statements and in CALL statement argument lists are less likely to 
be optimized. 


— Variables in common blocks cannot be optimized across subroutine calls. 
Do not use DO loop indexes in any of the above ways. 


¢ Each reference to a variable in a common block requires that the address of the common 
block be in a register. This is the basis for the following recommendations: 


— Minimize the number of common blocks. Group concurrently referenced variables into 
the same common block. For example: 


COMMON /X/ A 
COMMON /Y/ B 
COMMON /Z/ C 
A=B+C ! Three registers required 


COMMON /Q/ A,B,C 
A=B+C ! One register required 


- Place scalar variables before arrays in a given common block. For example: 


COMMON /Z/ X(50000),Y 
X(1)=Y ! Two registers required 


COMMON /Z/ Y 7X(50000) 
X(1)=Y ! One register required 


— Place small arrays before large ones. All the scalar variables and the first few arrays 
can then be addressed through one address constant. The subsequent larger arrays 
probably each need a separate address constant. 


- Assign frequently referenced scalar variables in a common block to a local variable. 
References to the local variable will not require the common block address to be ina 
register. Be sure to assign the value back to the common block variable at the end of 
processing. 
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¢ REAL*8 values are handled more efficiently than REAL*4 values. 


* Items that are incorrectly aligned in common blocks adversely affect the performance of 


the program. 


Subroutine Arguments 
¢ Entry into a subprogram associates actual arguments with the dummy arguments in the 


referenced subprogram or ENTRY statement. Therefore, all appearances of these 
arguments in the whole subprogram become associated with actual arguments. New 
values will not be transmitted for arguments not listed in the ENTRY statement. 


The only way to guarantee that you will get the current value of an argument is to have 
the argument listed on the ENTRY statement through which you invoke the subprogram. 


Large numbers of actual arguments can be dealt with more efficiently if they are in 
common blocks. | 


Constant Operands 


Arrays 


Expressions 


Define constant operands as local variables. The compiler recognizes only local variables 
as having a constant value. (Operands in common or in an argument list can change, and 
cannot be optimized as fully.) 


Expand some smaller arrays to match the dimensions of the arrays they interact with. If 
the arrays in a subprogram, block of code, loop, or nest of loops have the same shape, 
the compiler calculates one subscript and uses it for all the arrays. The compiler can 
maintain one index for all the arrays defined as having the same dimensions. 


Subscripting of adjustable dimensioned arrays requires additional indexing computations. 
Using an adjustable dimensioned array as a dummy argument, requires an additional 
calculation on each entrance into the subprogram. To lessen the amount of extra 
processing, use the following technique: 


— If indexing can be varied in the low-order dimensions, make the adjustable dimensions 
of an array the high-order dimensions. This reduces the number of computations 
needed for indexing the array, as shown: 


SUBROUTINE EXEC(Z,N) ! Computation not required 
REAL*8 Z(9,N) 
Z(I,5)=A 


SUBROUTINE EXEC(Z,N) ! Computation (I*N) required 
REAL*8 2(N,9) 
Z(5,1)=A 


Initialize large arrays using a DO loop. You get faster overall run time and use less 
storage than if you initialize using a DATA statement. For example, the following 
statements: 


DOUBLE PRECISION A(5000) 
DATA A/5000*1.0D0/ 


generate 40000 bytes of object module information. The 5000 copies of 1.0 are placed in 
the object module, placed in the load module, and fetched into storage when you run the 


- program. 


If components of an expression are duplicate expressions, code them either at the left 
end of the expression, or within parentheses. For example: 
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A=B* (X*Y*Z) ! Duplicates recognized 
C=X*Y*Z*D 

E=F+(X+Y) 

G=X+Y+H 


A=B*X*Y*Z ! No duplicates recognized 
C=X*Y*Z*D 

B=F+X+Y 

G=X+Y+H 


The compiler can recognize X*Y*Z and X+yY as duplicate expressions because they’re 
either coded in parentheses or coded at the left end of the expression. 


e When components of an expression in a loop are constant, code the expressions either at 
the left end of the expression, or within parentheses. If Cc, D, and E are constant and V, wW, 
and X are variable, the following examples show the difference in evaluation: 


V*W*X* (C*D*E) ! Constant expressions recognized 
C+D+E+V+W+X 

V*W*X*C*D*E ! Constant expressions not recognized 
V+W+X+C+Dt+E 


Critical Loops | 
¢ {f your program contains a short, heavily—referenced DO Joop, consider expanding the 
code to be a straight sequence of statements. For example: 


A(1)=B(K+1)*C(M+1) 
A(2)=B(K+2)*C(M+2) 
A(3)=B(K+3)*C(M+3) 
A(4)=B(K+4)*C(M+4) 
A(5)=B(K+5) *C(M+5) 


would run faster than: 


DO I=1,5 
A(I)=B(K+I)*C(M+I) 
END DO 


Conversions 
* Avoid forcing the compiler to convert numbers between integer and floating—point internal 
representations. Conversions require several instructions, including some double 
precision floating—point arithmetic. For example: 


X=1.0 ! No conversions needed 
DO 10 I=1,9 
A(I)=A(I)*X 
X=X+1.0 
10 CONTINUE 


DO 10 I=1,9 ! Multiple conversions needed 
A(I)=A(I)*I 
10 CONTINUE 
When you must use mixed—mode arithmetic, code the fixed—point and floating—point 
arithmetic in separate computations as much as possible. 


Arithmetic Constructions 


¢ In subtraction operations, if only the negative is required, change the subtraction 
operations into additions, as follows: 
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Z=—2.0 ! Efficient 
DO 10 I=1,9 
A(1I)=A(1)+Z*B(I) 
10 CONTINUE 


DO 10 I=1,9 ! Inefficient 
A(1I)=A(I)—2.0*B(I) 
10 CONTINUE 


¢ In division operations, do the following: 
- For constants, use the following construction: 
X*(1.0/3.0) 


rather than the construction x/3.0. Note that division by a constant of an exact power 
of 2 is changed to a multiplication by the reciprocal power by the compiler. For 
example, X/2.0 is changed to x*0.5. 


- Fora variable used as a denominator in several places, use the same technique. 


IF Statements 
¢ Use a block or logical IF statement rather than an arithmetic IF statement. If you must use 
an arithmetic IF statement, try to make the next statement one of the branch destinations. 


¢ In block or logical IF statements, if your tests involve a series of AND. or .OR. operators, 
try to: 


— Put the simplest tested conditions in the leftmost positions. 

— Put complex conditions (such as tests involving function references) in the rightmost 
positions. 

- Put tests most likely to be decisive in the leftmost positions. 
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This chapter describes some methods you can use for debugging your programs: 


¢ Error messages 
¢ Compiler listings 
¢ The symbolic debugger. 


Error Messages 


The following sections discuss environment variables, compile-time messages, and 
run—time messages. 


Environment Variables 
The message catalogs must be installed and the environment variables LANG and 
NLSPATH must be set to a language for which the message catalog has been installed 
before the compiler will execute. See “Environment Variables” on page 14 for more 
information. 


If the following message is issued during compilation, there has been an error opening the 
appropriate message catalog: 


Error occurred while initializing the message system in file: 
msgfile 


where msogfile is the name of the message catalog that the compiler was unable to open. 
This message is only issued in English. 


You should then verify that the message catalogs and the environment variables are in place 
and correct. If the message catalog or environment variables are not correct, compilation 
can continue, but all non—diagnostic messages will be suppressed and the following 
message will be issued instead: 


No message text for msgno 


where msgno is the XL FORTRAN internal message number. This message is only issued in 
English. 


If the following message is issued during run time, there has been an error opening the 
run—time message catalog: 


1525-100 An error occurred while opening the message catalog 
xrfmsg.cat. The program will continue but only the error message 
numbers will be displayed. 


This message is only issued in English. You should then verify that the message catalogs 
and the environment variables are in place and correct. If the message catalog or 
environment variables are not correct, execution can continue, but only the error message 
numbers will be displayed. 


To determine which XL FORTRAN message catalogs are installed on your system, list all of 
the file names using the following commands: 


/usr/lpp/msg/language—code/xlf*.cat (compile-time messages) 
/usr/lpp/msg/language—code/xrfmsg.cat (run-time messages) 


where language—code is one of the national language codes. 
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Compile—Time Messages 
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XL FORTRAN displays compile-time diagnostic messages on the terminal (standard error), 
and in the source listing, if you request a listing using the LIST, SOURCE, XREF, ATTR, 
LISTOPT, or STATs compiler option. You can also control the diagnostic messages issued, 
according to their severity, using the FLAG option. The maximum number of errors that can 
be issued per source line is 100. 


In addition to the diagnostic message issued, the source line and a pointer to the position in 
the source line at which the error was detected is printed or displayed, if you specify the 
SOURCE compiler option. If NOSOURCE is in effect, the file number (if it is an include file), 
the line number, and column position of the error are displayed with the message. 


The return code at the end of compilation is set to 0 if the highest severity level of all errors 
diagnosed is E, W, L, or I, or less than halt_sev if the HALT compiler option has been 
specified. Otherwise, the return code is set to one of the following values: 


1 A severe or unrecoverable error has been detected that is not one of the 
others listed here. 

40 An option error has been detected. 

41 A configuration file error has been detected. 

250 | An out—of—memory error has been detected. The xIlf command cannot 
allocate any more memory for its use. 

251 A signal received error has been detected. A fatal error or interrupt signal is 

| received. 

252 A file—not-found error has been detected. 

253 An input/output error has been detected. Cannot read or write files. 

254 A fork error has been detected. Cannot create a new process. 

255 An error has been detected while executing a process. 


The format of a compile—time diagnostic message is: 
15cc—nnn ‘message text’ 


Where: 

15 indicates an XL FORTRAN compiler message. 

cc is the component number, as follows: 
11-20 indicates a FORTRAN specific message. 
00 indicates a code generation or optimization message. 
01 = indicates an XL common message. 

nnn is the message number. 

‘message text’ is the text describing the error. 


The severity levels of the messages are: 


(U) Unrecoverable error Internal compiler error. This error should be reported to 
your IBM service representative. 


(S) Severe error — Conditions exist which cannot be corrected by the 
compiler. An object file is produced; however, you are 
advised not to attempt to run the program. 


— An internal compiler table has overflowed. Processing 
of the program is discontinued and no object file is 
produced. This error condition can typically be 
corrected through the use of an option. 


— An include file does not exist. Processing of the 
program is discontinued and no object file is produced. 
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(E) Error Conditions exist which can be corrected by the compiler 
with some degree of confidence that the program will run 


correctly. 

(W) Warning Warning message. 

(L) Language Language level message: FIPS or SAA warning 
message. 

(I) Informational Note to the programmer concerning conditions found 


during compilation. 


Run-Time Messages 
The format of a run-time diagnostic message is: 


1525-—nnn ‘message text’ 


Where: 

1525 indicates an XL FORTRAN run-time message. 
nnn is the message number. 

‘message text’ is the text describing the error. 


You can investigate errors that occur during the execution of a program using the symbolic 
debugger dbx which is available on the IBM AIX RISC System/6000. 


Error messages will be issued during execution of a program if: 


¢ An input/output error is detected. 

e An exception error is detected, and a call to SIGNAL to install the default exception 
handler was specified before the exception occurred. A run-time exception will occur in 
the following cases: 

— Anarray subscript or character substring expression is out of range the CHECK 
compiler option was specified at compile time. 

— The flow of control in the program reaches a location for which a semantic error with 
severity of S was issued when the program was compiled 

- A fixed—point division by zero occurs. 


input/Output Errors 
lf the error detected is an input/output error, and you have specified 
lOSTAT=integer_variable on the input/output statement in error, the IOSTAT variable will be 
assigned the following value: 


¢ The negation of the message number if an end—of-—file condition exists 
* The message number in all other cases. 


If you have installed the XL FORTRAN run-time message file on the system on which the 
program is executing, then a message number and message text is issued to the terminal 
(standard error). If this run-time message file is not installed on the system, only the 
message number appears. 


Run-Time Exceptions 
For run-time exception errors, if you have installed the exception handler before the 
exception occurs, a message and a traceback is displayed. dbx can then be used to 
examine the location of the exception. 
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The exception handler supplied to perform these functions is called xl__trce. To install the 
exception handler use the following command sequence in your FORTRAN source: 


include ‘fexcp.h’ !definitions for exception handler 
call signal(SIGTRAP,xl_trce) !install exception handler 


Compiler Listings 


The listing produced by the compiler (if you specify the appropriate compiler option) consists 
of a combination of the following sections: 


¢ Header Section 

¢ Options Section 

e Source Section (optional) 

¢ Attribute and Cross—Reference Section (optional) 
¢ Object Section (optional) 

¢ File Table Section 

¢ Compilation Statistics Section (optional) 

¢« Compilation Unit Epilogue Section 

¢« Compilation Epilogue Section. 


A heading identifies each major section of the listing. Greater than symbols precede the 
section heading so that you can easily locate the beginning of a section. 


>>>>> section name 
The following is a simple programming example to demonstrate the sections of a listing: 


IBM AIX XL FORTRAN Compiler/6000 Version 01.01.0000.0000 —— userl6.f 12/28/89 
12:50:24 


>>>>> OPTIONS SECTION <<<<< 

ial Options In Effect wR 
LIST SOURCE STATS 
XREF( FULL ) 


>>>>> SOURCE SECTION <<<<< 
| PROGRAM MAIN 

| INTEGER I 

| DO 10 I=1,10 

| WRITE(6,*) I 
{10 CONTINUE 

| STOP 

| END 


NO O1 B® WD FE 


>>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< 


IDENTIFIER DEF CROSS REFERENCE 
NAME FILE LINE COL 

i 0 2 LS 0—3.13@ 0—4.21 
main 0 1 15 


>>>>> OBJECT SECTION <<<<< 
GPR’s set/used: ss—s ssss ssss s—— — —_—— —— —ss 
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FPR’s set/used: 


SsSsSs ssss ssss ss-— 


CR’s set/used: ss— —ss 
0| 000000 PDEF main 
0| 000000 PROC 
0| 000000 mfspr 7C08 02A6 1 —MFSPR r0=LR 
0| 000004 stm BFCl1 FFF8 2 —STM (r1,—8)=r30—r31 
0| 000008 st 9001 0008 1 —ST (r1,8)=r0 
0| 00000C stu 9421 FFCO 1 —STU rl=(r1,-64) 
0| 000010 1 83E2 0008 1 L r31=.&main$(r2,0) 
3| 000014 cal 3860 0001 1 LI r3=1, 
3| 000018 st 907F 0000 1 ST i(r31,0)=r3 
CL.0: 
4| 00001c cal 3860 0006 1 LI r3=6 
4| 000020 bl 4BFF FFE1 0 CALL 


r3=#LDSO,1,r3,#LD 
4| 000024 cro 
4) 000028 1 


SoO”,cr0”,cr1l",cr6",cr7”,r0",r4"—r12",fp0"—fp13” ,mq” 
r 4DEF 7B82 0 


807F 0000 1 iL r3=i(r31,0) 


r3=0 
r5=1 
r4=r5 


r3=i(r31,0) 
r3=r3,1 
i(r31,0)=r3 
crl=r3,10 
CL.0,cr1,0x2/gt 


r30=0 
r3=r30 


r3=r30 


r0=(rl1,72) 
ri=r1,64 

LR=r0 
r30—r31=(r1,—8) 
LR 


4| 00002c bl 4BFF FFD5 0 CALL 
r3=#LDINTO,1,r3,#LDINTO”,cr0”,cr1”,cr6”,cr7”,r0" ,r4"—r12",fp0”"—fp13” ,mq” 
4| 000030 cror 4DEF 7B82 0 
4| 000034 cal 3860 0000 1 LI 
4| 000038 cal 38A0 0001 1 LI 
4| 00003c oril 60A4 0000 1 LR 
4| 000040 bl 4BFF FFC1l 0 CALL 
r3=#EO,3,r3,r4,r5,#EO”,cr0O”,cr1”,cr6",cr7”,r0"”,r4"—r12",fp0"—fp13” ,mq” 
4| 000044 cror 4DEF 7B82 0 
210: 
5| 000048 1 807F 0000 1 L 
5| 00004C ai 3063 0001 2 AI 
5| 000050 st 907F 0000 1 ST 
5| 000054 cmpi 2C83 000A 1 c 
5| 000058 be 4085 FFC4 3 BF 
CL.1: 
6| 00005cC cal 3BCO 0000 1 LI 
6| 000060 oril 63C3 0000 1 LR 
6| 000064 bl 4BFF FF9D 0 CALL 
r3=#ATESTOP,1,r3,#ATESTOP”,cr0”,cr1”,cr6",cr7”,r0",r4"—r12”,£p0”"—fp13”,m 
6| 000068 cror 4DEF 7B82 0 
7| 00006C bl 4BFF FF95 0 CALL 
#CLOSEALL, 0, #CLOSEALL”,cr0”,cr1”,cr6”,cr7",r0",r3"—r12", f£p0”"—fp13",mq” 
7| 000070 cror 4DEF 7B82 0 
7| 000074 oril 63C3 0000 1 LR 
CL.2: 
7| 000078 PEND 
~ 7| 000078 1 8001 0048 1 —L 
7| 00007C ai 3021 0040 1 —AI 
7| 000080 mtspr 7C08 03A6 1 —MTSPR 
7| 000084 1m BBC1 FFF8 2 —LM 
7| 000088 ber 4E80 0020 2 —RET 
Straight—line exec time 1 
| 00008c Tag Tables 
| 00008c 00000000 
| 000090 00012041 
| 000094 80020001 
| 000098 0000008C 
| o00009C 0004 
| main 
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| 0000A8 Constant Area Starts Here 


| 0000A8 OO00ACC50 
| O0OO00AC End Of Code Csect 


Instruction count is 35 


** main === End of Compilation 1 


>>>>> FILE TABLE SECTION <<<<< 


FILE CREATION FROM 
FILE NO FILENAME DATE TIME FILE LINE 
0 userl6.f 12/28/89 12:49:36 

>>>>> COMPILATION STATISTICS SECTION <<<<< 

Compiler table statistics Used Total 
PEOCERULE LIS tines Slee aes was Sree er eee ee ees 256 261888 
COMPUT AE ION ws ce 6.5 ie 668 5 wie ord elec eae wala es a oe Wa ate ee 312 524287 
SYMDOLIC TSQLSCST 5.654 ei ha eS OTN OOK dees 137 4097 
DECELON ALY css oO else Ste ed tah es ee RO as os wee 60 2049 
Integer valu@..c ccs cccaeccewes Serre Ce eae ‘ 154 2049 
Real value....ccsscccccses rae were a eee 5: a 36 Seam 0 1025 
Procedure deSCriptOr......ccecccceoee ee ee , 1 50 
Name and constant......ceccccees Siig Sore eee Ae 565 32768 
CONSTEAM Cis os ee ares. ee oe OG ow ola eee ee ERM BS ee5u5wee 4 1024 

>>>>> COMPILATION EPILOGUE SECTION <<<<< 

FORTRAN Summary of Diagnosed Conditions 

TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL 

(U) (S) (E) (W) (I) 

0 0 0 0 0 0 
SOUICE: TECOLAGS LEAs i608 6b oo SOA ME Ew S OS eerie he ee 7 
Compilation Start.....eeees Ce ee Se ee ere eee 12/28/89 12:50:24 
Compilation end......cseeee PN ee eS ee re ee 12/28/89 12:50:24 
ELADSOACIMeC wis wis Cae. o. US oer G AOR Re Ra OR e MOG ew ea 00:00:00 
TOtalL ‘Cpus EIMOs ses bo he GWM Se REGS Oe Se ere ase 0.800 
Virtual cpu time. eeee7#e#ee##8tf?ef7eee8e8eee8eeeeeeeeseee#eertft ee @ oe ee 0. 000 


1501-510 Compilation successful for file userl6.f. 
1501-543 Object file created. 


Another listing is shown in Appendix A, “Sample Program’. 
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Header Section | 
The listing file has a header section containing the following: 


¢« Acompiler identifier consisting of: 
— Compiler name 
— Version number 

Release number 
— Modification number. 

¢ Source file name 

¢ Date of compilation 

¢ Time of compilation. 


It is the first line in the listing and appears only once in the file. The header section is always 
present in a listing. 


Options Section 
The options section is always present in a listing, and is repeated for each compilation unit. 
This section indicates the specified options that are in effect for the compilation unit. This 
information is useful when you have conflicting options. Finally, if you specify the LISTOPT 
compiler option, this section lists the settings for all options. 


Source Section 
The source section contains the input source lines with a line number and, optionally, a file 
number. The file number indicates the source file (or include file) that the source line has 
come from. All main file source lines (those that are not from an include file) do not have the 
file number printed. Each include file has a file number associated with it and source lines 
from include files have that file number printed. The file number appears on the left, the line 
number appears to its right, and the text of the source line is to the right of the line number. 
XL FORTRAN numbers lines relative to each file. The source lines and the numbers 
associated with it appear only if the SOURCE compiler option is in effect. Parts of the source 
can be selectively printed by using SOURCE or NOSOURCE throughout the program. 


The source section also contains error messages interspersed with the code, as they would 
appear cn the terminal (standard error) during compilation. If NOSOURCE is in effect, and 
you request a listing, the source section contains only messages. If there are no messages, 
the source section will be empty. 


Error Messages 


If the SOURCE option is in effect, the error messages are interspersed with the source 
listing. The error messages generated during the compilation process contain: 


¢ The source line 
¢ Aline of indicators which point to the columns that are in error 
¢ The error message which consists of: 

— The 4—digit component number 

— The number of the error message 

- The severity level of the message 

— The text describing the error. 


For example: 
2.*| equivalence (i,j,i) 
eee ee ee ere re ee ee ee se a. 
a — 1514-092: (E) Same name appears more than once in an equivalence 
group. 
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If the NOSOURCE option is in effect, the error messages are all that appear in the source 
section, and they contain: 


e The line number and column position of the error (and the file number if the line in error is 
in an INCLUDE file) 

e The error message which consists of: 
~ The 4—digit component number 
-— The number of the error message 

The severity of the message 

The text of the error. 


For example: 


3.15 1513—039: (S) Number of arguments is not permitted for 
INTRINSIC function abs. 


Attribute and Cross—Reference Section 
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This section provides information about the variables used in the compilation unit. It is 
present if the XREF or ATTR compiler option is in effect. Depending on the options in effect, 
this section contains all or part of the following information about the variables used in the 
compilation unit: 


¢ Name of the symbolic variable 

¢ Attributes of the variable (if ATTR is in effect). Attribute information includes the type and 
the storage class of the variable, relative address of the variable, dimensions of the 
variable (if an array), and the alignment of the variable (if ATTR is in effect). 

¢ File, line, and column numbers on which you define a variable and coordinates to indicate 
where you have referenced or modified the variable. If the variable is initialized, the 
coordinates are marked with a *. If the variable is set, the coordinates are marked with a 
@ . If the variable is referenced, the coordinates are not marked. 


Storage class may be one of the following: 


Program 

Function 

Subroutine 

Entry 

External Subprogram 
Static 

BSS 

Common 

Common block 
NAMELIST 
Automatic 

Reference Parameter 
Value Parameter. 


Type may be one of the following: 


Logical 
Integer 
Real 
Complex 
Character. 
If you specify the FULL suboption with XREF or ATTR,XL FORTRAN reports all variables in 


the compilation unit. If you do not specify this suboption, only the variables you actually use 
appear. 
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Object Section 
XL FORTRAN produces this section only when the LIST compiler option is in effect. It 
contains the object code listing, which shows the source line number, the instruction offset in 
hexadecimal, the assembler mnemonic of the instruction, and the hexadecimal value of the 
instruction. On the right side, it also shows the cycle time of the instruction and the 
intermediate language of the compiler. Finally, the total cycle time (straight-line execution 
time) and the total number of machine instructions produced is displayed. This section is 
repeated for each compilation unit. 


File Table Section 
This section contains a table showing the file number and file name for each main source file 
and include file used. It also lists the line number of the main source file at which the include 
file is referenced. This section is always present. 


Compilation Statistics Section 
This section appears in the listing only if the STATs compiler option is in effect. It provides 
compilation statistics, such as various compiler table sizes and usage. 


Compilation Unit Epilogue Section 
This is the last section of the listing for each compilation unit. It contains the diagnostics 
summary, and indicates whether or not the unit compiled successfully. The compilation unit 
epilogue section is not present in the listing if the file contains one compilation unit. 


Compilation Epilogue Section 
The above sections are repeated for each compilation unit when more than one compilation 
unit is present. At completion, X. FORTRAN presents a summary of the compilation in 
terms of number of source records read, compilation start, compilation end, total compilation 
time, total cpu time, and virtual cpu time. This section is always present in a listing. 





The Symbolic Debugger 


XL FORTRAN supports the dbx symbolic debugger. See the AIX Commands Reference for 
IBM RISC System/6000, SC23-—2199 for detailed information. 
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Chapter 7. Interlanguage Calls 


XL FORTRAN permits you to call subroutines written in other languages from your program. 
This chapter assumes you are familiar with the syntax of the languages you will be using, 
and gives details on how to perform interlanguage calls from your FORTRAN program. 


Programming Conventions 
XL FORTRAN has adopted the following conventions to allow or assist interlanguage calls: 
e¢ Programs and symbolic names are folded to lowercase by default. 


« Both the underscore (_) and currency symbol ($) are valid characters in names, and you 
can use either as the first character of a name. 


Note: Names that begin with are reserved names in C and in the XL FORTRAN library. 
It is recommended that you do not use _ as the first character of a name. Also, 
using the $ as the first character in external names can cause problems, because 
AIX uses § as the first character in a shell variable name. 


e Names can be up to 250 characters long. 


¢ There are two common parameter passing modes: by value and by reference. (These are 
explained in detail for FORTRAN in “%VAL and %REF” on page 56.) 


For compatibility with C language usage, XL FORTRAN uses the following backslash 
escapes in character strings: 


[Escape [Meaning SSS 
fn [Newine 
Fis bes aicnieiea ere eton 
[\_____[Anostophe (oes natterinate a sting) 
[i Bouble quotation mark (does not terminale a sting) 
\[BecksieshSSCSC*S 


Figure 2. Backslash Escapes 

















If you are porting your application from the RT, and your application makes use of 
interlanguage calls, the EXTNAME compiler option may be necessary. See “Options 
Affecting the Compiler Object Code to be Produced” on page 25 for information about this 
option. 
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Programming Tips 


The following describes programming tips for writing XL FORTRAN procedures which 
interact with routines written in other languages: 


e Character data: 


C functions expect that strings are terminated by the null character. XL FORTRAN does 
not append the null character to the end of character literals. It is the programmer’s 
responsibility to concatenate the null character to the end of any character data which is 
passed to C routines. 


¢ Floating—point functions and arguments: 


In C, an implicit conversion takes place for float values which are passed as arguments 
on a Call to a C function having no prototype visible, and the called C function expects that 
all incoming float arguments have been converted to double. As XL FORTRAN does not 
perform a conversion on REAL*4 quantities passed by value, it is recommended that 
REAL*4 values not be passed as arguments to C functions that are not declared as 
function prototypes. 


¢ Input/Output: 


To improve performance, the XL FORTRAN run-time library has its own buffers and its 
own handling of these buffers. Therefore, it is not recommended that XL FORTRAN 
routines and routines of other languages perform input/output on the same data files 
within the same executable program. However, if such mixing of input/output is required, 
the data file should be both opened and explicitly closed within XL FORTRAN routines 
before any input/output operations are performed on that file by routines written in another 
language. If any XL FORTRAN routines contain WRITE statements, and these routines 
are used in an executable program in which the main program is not written in XL 
FORTRAN, then the programmer must explicitly CLOSE the data file in an XL FORTRAN 
routine to ensure that the buffers are flushed. 


These restrictions do not apply to READ or WRITE statements using logical units 5 or 6, 
which are preconnected to standard in and standard out, or to PRINT statements. 


Corresponding Data Types 


54 


_| FORTRAN Data Types | Pascal Data Types C Data Types 


The following table indicates the data types available in thexL FORTRAN, Pascal, and C 
languages. 












INTEGER*1 PACKED —128..127 
INTEGER*2 PACKED -—32768..32767 | signed short 


REAL SHORTREAL float 
REAL*4 
REAL*8 REAL double 
DOUBLE PRECISION 


COMPLEX structure of 2 floats 
COMPLEX?*8 
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Bovstecoumex | fuentes 
DOUBLE COMPLEX 

Cn 
[Loaicats | SSSSCSSCS~*sd rit 


CHARACTER*n PACKED ARRAY{1..n] | char[n] 
OF CHAR 
Dimensioned variable | ARRAY ats. totes, ta ot 


Figure 3. Correspondence of Data Types among FORTRAN, Pascal, and C 










Character Variable Types 


Most numeric data types have counterparts across languages but there are some 
differences between the data types. The most difficult aspect of interlanguage calls is 
passing character, string, or text variables between languages. 


The only character type in FORTRAN is CHARACTER, which is stored as a set of 
contiguous bytes, one character per byte. The length of a FORTRAN character variable or 
character array element is determined at compile time and is therefore static. Character 
lengths are returned by the FORTRAN intrinsic function LEN. 


When you pass a FORTRAN character data item as a parameter, the address of the 
beginning of the character is passed along with a parameter that is the length of the 
character string. The parameter is added to the end of the declared parameter list. 


Pascal’s character—variable data types are STRING, PACKED ARRAY OF CHAR, 
GSTRING, and PACKED ARRAY OF GCHAR. The STRING data type has a 4 byte string 
length aligned on a double word boundary followed by a set of contiguous bytes, one 
character per byte. The dynamic length of the string can be determined using the LENGTH 
function. Packed arrays of CHAR, like FORTRAN’s CHARACTER type, are stored as a set 
of contiguous bytes, one character per byte. 


Character strings in C are typically stored as arrays of the type char. The char data type 
stores one character per byte; therefore, an array of char is stored exactly like a FORTRAN 
CHARACTER variable or a Pascal PACKED ARRAY OF CHAR. When an array of char is 
used to represent a character string in C, the end of the string is indicated by the null 
character. 
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How Arrays Are Stored 


XL FORTRAN stores array elements in ascending storage units in column—major order. C 
and Pascal store array elements in row—major order. The following example shows how a 
two-dimensional array declared by A(3,2) in FORTRAN, C, and Pascal is stored: 
















FORTRAN 
Element Element 
Name Name 


C Element 
Name 


Pascal 










Lowest storage unit 















Highest storage unit 
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To call subprograms written in languages other than FORTRAN (for example, user—written C 
programs, or AIX system routines), the actual arguments may need to be passed bya 
method different from the default method used by FORTRAN. The form of an actual 
argument can be changed by using the %VAL and %REF keywords in the argument list of a 
CALL statement or function reference. These keywords specify the way the actual argument 
should be passed to the subprogram. 


The argument list keywords are: 


%VAL This keyword can be used with actual arguments that are CHARACTER*1, 
logical, integer, real, or complex expressions. It cannot be used with actual 
arguments that are array names, procedure names, or character 
expressions of length greater than 1 byte. Hexadecimal, binary, octal, and 
Hollerith constants are passed as if they were of the type INTEGER*4. If the 
actual argument is a CHARACTER?*1, it is padded on the left with zeros toa 
32-bit value. 


This keyword causes the actual argument to be passed as 32-bit 
intermediate values. If the actual argument is an integer that is shorter than 
32 bits, it is sign—extended to a 32-bit value. If the actual argument is a 
logical that is shorter than 32 bits, it is padded on the left with zeros to a 
32-bit value. If the actual argument is of type real or complex with a length 
greater than 32 bits, it is passed as multiple 32—bit intermediate values. 


%REF This keyword causes the actual argument to be passed by reference. (The 
address of the actual argument is passed.) This is the default for 
FORTRAN. 


Note that, if the actual argument is of character data type, only the address 
of the actual argument is passed, whereas a character actual argument 
passed without the %REF function is passed as the address and the length 
of the character argument. If such a character argument is being passed to 
a C routine, the string must be terminated with a null character, so that the 
-C routine can determine the length of the string. . 
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Subroutine Linkage Convention 


The “subroutine linkage convention” describes the machine state at subroutine entry and 
exit. This scheme allows routines that are compiled separately in the same or different 
languages to be linked and executed when called. The information on Subroutine Linkage 
and System Calls in the User’s Guide for IBM AIX XL FORTRAN Compiler/6000 is the base 
reference on this topic, and should be consulted for further details. 


The linkage convention for the IBM AIX XL FORTRAN Compiler/6000 provides a fast and 
efficient subroutine linkage by passing parameters in registers, taking full advantage of the 
large number of floating—point registers (FPRs) and general-purpose registers (GPRs), and 
minimizing the saving and restoring of registers on subroutine entry and exit. The linkage 
convention allows for parameter passing and return values to be in FPRs, GPRs, or both. 
(GPRs are also referred to as registers.) 


Register Usage | 


If a register is not designated as saved during the call, its contents may be changed during 
the call. Conversely, if a register is saved, its contents must be preserved across the call. 
The following table lists registers and their functions. 


Pear [acres tans 
Across Calls 

fro = Staeepointee 
fists 2 eee 
fro =i stwordofargiistretumn value t—_ 
fro =~ Srdword of arg ist return values. | 
[ro —_—*( ath word of arg ist return value 4. 
ro 
ro 
ae 
mo 
mo 
ro 






















1 
2 
3 


eo 
i 
a 
eae 
a 
a 
a 
a 
od 
| 

es 


DSA pointer to internal procedure (Env). 


Figure 4. General Purpose Register Usage 


1 





2 
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Stack 


The following table lists floating—point registers and their functions. The floating—point 
registers are double precision (64 bits). 


Register Preserved 
Across Calls 


ae ae FP parameter 1, function return 1. 
2 [no FP parameter 2, function return 2. 


ae (ane FP parameter 13, function return 13. 
a a eT 


Figure 5. Floating—Point Register Usage 














The following table lists special purpose register conventions. 


Register Preserved | 
Across Calls 
Condition register 


Bits 0-7 (CRO,CR1) 


Bits 20—23 (CRS5) Reserved for system use. Never set or 
changed. 


Bits 24-31 (CR6,CR7) 


linkregiier no 
[Countregster Sino 
[Maregster ido 
ER region Sino 
FPSCR register (no 





Figure 6. Special Purpose Register Usage 


The stack is a portion of storage that is used to hold local storage, register save areas, 
parameter lists, and call chain data. The stack grows from higher addresses to lower 
addresses. A stack pointer register (register 1) is used to mark the current “top” of the stack. 


A stack frame is the portion of the stack used by a single procedure. You can consider the 
input parameters as being part of the current stack frame. In a sense, each output argument 
belongs to both the caller’s and the callee’s stack frames. In either case, the stack frame 
size is best defined as the difference between the caller’s stack pointer and the callee’s. 


The storage map of a typical stack frame is shown below. 


In this diagram, the current routine has acquired a stack frame which allows it to call other 
functions. If no calls are made, and there are no local variables or temps, then the function 
need not allocate a stack frame. It can still use the register save area at the top of the 
caller’s stack frame, if needed. 


The stack frame is double word aligned. The FPR save area and the parameter area (P1, 
P2, ..., Pn) are also double word aligned. Other areas require word alignment only. 
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RUN—TIME STACK 
IBM AIX XL FORTRAN Compiler/6000 


Low | | Stack grows at 
Addresses this end. 
Callee’s stack — > 0 Back chain 
pointer 4 Saved CR 
8 Saved LR 
12-16 Reserved <—— LINK AREA (callee) 
20 SAVED TOC 
Space for P1—P8 Pl OUTPUT ARGUMENT AREA 
is always reserved eae <—— (Used by callee to 
Pn construct argument 
list) 
Callee’s 
stack <—— LOCAL STACK AREA 
area 


| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | (Possible word wasted 

| | for alignment. ) 

—8*nfprs—4*ngprs —> | Caller’s GPR | Rfirst = R13 for full 
save | Save area | save 

| max 19 words | R31 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 


Ffirst = F14 fora 
full save 


Caller’s FPR 
save area 
max 18 dblwds 


—8*nfprs —> 


P31. 


Caller’s stack — > 0 Back chain 
pointer 4 Saved CR 
8 Saved LR 
12—16 Reserved <—— LINK AREA (caller) 
20. Saved TOC 
Space for P1—P8 24 Pl INPUT PARAMETER AREA 
is always reserved bce <——(Callee’s input 
Pn parameters found 
here. Is also 
Caller’s caller’s arg area.) 
stack 
High area 
Addresses 


Link area 
This area consists of six words, and is at offset zero from the caller’s stack pointer on entry 
to a procedure. The first word contains the caller’s back chain (stack pointer). The second 
word is where the callee saves the Condition Register (CR) if needed. The third word is 
where the callee’s PROLOG code saves the Link Register if necessary. The fourth word is 
reserved for the SETJMP, LONGJMP processing, and the fifth word is reserved for future 
use. The last word (word 6) is reserved for use by the Global Linkage routines which are 
used when calling out—of—-module routines (for example, in shared libraries). 


input Parameter Area 
This is a contiguous piece of storage reserved by the calling program to represent the 
register image of the input parameters of the callee. The input parameter area is double 
word aligned, and is located on the stack directly following the caller’s link area. This area is 
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at least 8 words in size. If more than 8 words of parameters are expected, they would have 
been stored as register images starting at positive offset 56 from the incoming stack pointer. 


Register Save area 
This area is double word aligned, and provides the space needed to save all non—volatile 
FPRs and GPRs used by the callee program. The FPRs are saved next to the link area. The 
GPRs are saved above the FPRs (in lower addresses). The called function may save the 
registers here even if it does not need to allocate a new stack frame. The system defined 
stack floor includes the maximum possible save area (18*8 for FPRs + 19*4 for GPRs). 
Locations at a numerically lower address than stack floor should not be accessed. 


A callee needs only to save the non—voiatile registers that it actually uses. Register 31 is 
always saved in the highest addressed word of the particular save area. 


Local stack area 
This is the space allocated by the callee procedure for local variables, and temporaries. 


Output Parameter Area 
The parameter area (P1...Pn) must be large enough to hold the largest parameter list of all 
procedures called from the procedure that owns this stack frame. 


This area is at least 8 words long regardless of the length or existence of any argument list. 
If more than 8 words are being passed, an extension list is constructed beginning at offset 
56 from the current stack pointer. 


Parameter Passing 
The IBM AIX RISC System/6000 linkage convention takes advantage of the large number of 
registers available. The linkage convention passes arguments in both GPRs and FPRs. The 
GPRs and FPRs available for argument passing are specified in two fixed lists: R3—R10 and 
FP1—-FP13. 


When there are more argument words than available parameter GPRs and FPRs the 
remaining words are passed in storage on the stack. The values in storage are the same as 
if they were in registers. Space for more than 8 words of arguments (float and non—float) 
must be reserved on the stack even if all the arguments were passed in registers. 


The size of the parameter area is sufficient to contain all the arguments passed on any call 
statement from a procedure associated with the stack frame. Although not all the arguments 
for a particular call actually appear in storage, it is convenient to consider them as forming a 
list in this area, each one occupying one or more words. 


For call by reference (as in FORTRAN), the address of the parameter is passed in a register. 
The following refers to call by value, as in C or as in FORTRAN when %VAL is used. For 
purposes of their appearance in the list, arguments are classified as floating—point values or 
nonfloating—point values: . 


¢ Each nonfloating—point scalar argument requires one word and appears in that word 
exactly as it would appear in a GPR. It is right justified, if language semantics specify, and 
is word aligned. 


¢ Each floating—point value occupies one word, while float double occupies two successive 
words in the list. 


¢ Structure values appear in successive words as they would anywhere in storage, 
satisfying all appropriate alignment requirements. Structures are aligned to a fullword and 
occupy (sizeof(struct X)+3)/4 fullwords with any padding at the end. A structure 
which is smaller than a word will be left justified within its word or register. Larger 
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structures can occupy multiple registers, and may be passed partly in storage and partly 


in registers. 


e Other aggregate values are passed “val—by-ref’, that is, the compiler actually passes their 
address and arranges for a copy to be made in the invoked program. 


¢ A procedure or function pointer is passed as a pointer to the routine’s function descriptor; 
its first word contains its entry point address. (See “Pointers to Functions” on page 62 for 


more information.) 


Argument passing rules (by value) 
Following is an example of a call to a function: 


£(%val(11), 
tval(cl), 


where: 1 denotes 
d denotes 
£ denotes 
s denotes 
c denotes 


$val(12), %val(13), 
%val(d2), 


tval(sl), 


$val(dl), %tval(f1), 
$val(cx2)) 


integer*4 (full word integer) 
real*8 (double precision) 
real*4 (real) 
integer*2 (half word integer) 
character (one character) 

cx denotes complex*16 (double complex) 


.WILL BE PASSED IN: 


R3 


R4 


R5 


0 


4 


8 


12 


FP1 (R6,R7 unused) 


FP2 (R8 unused) 


R9 


16 


20 


24 


28 


FP3 (R10 unused) 


STACK 


FP4 (8 bytes 
reserved in 
stack) 


FP5 (8 bytes 
reserved in 
stack) 


32 


36 


40 


44 


48 
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STORAGE MAPPING OF 


PARM AREA ON THE 
li 
12 


13 
dl 


f1 


d2 


cx2 (real) 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


IITI\ILIT\STIT 


III/\//11\ 8 


cx2 (imaginary) 


STACK 


cl |<— right justified (if 
language sematics 


specify) 


<—— right justified (if 
language semantics 
specify) 


From the above illustration we state the following rules: 


¢ The parameter list is a conceptually contiguous piece of storage containing a list of words. 
For efficiency, the first 8 words of the list are not actually stored in the space reserved for 
them, but passed in GPR3—GPR10. Further, the first 13 floating—point value parameters 
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are not stored in the space reserved for them or passed in GPRs, but are passed in 
FPR1—-FPR13. 


e If the called procedure wishes to treat the parameter list as a contiguous piece of storage 
(for example, if the address of a parameter is taken in C) then the parameter registers are 
stored in the space reserved for them in the stack. 


¢« A register image is stored on the stack. 


¢ The argument area (P;...P,) must be large enough to hold the largest parameter list. 


Function Calls 
A routine has two symbols associated with it: a function descriptor (name) and an entry point 
(.name). When a call is made to a routine, the compiler branches to the name point directly. 
Excluding the loading of parameters (if any) in the proper registers, calls to functions are 
expanded by compilers to the following two instruction sequence: 


BL -f00 # Branch to foo 
CROR 15,15,15 # Special NOP 


The linkage editor will do one of 2 things when it sees a BL: 


1. If foo is imported (not in the same module), then the linkage editor will change the BL to 
- foo to a BLto .glink ( global linkage routine) of foo, and insert the .glink into the 
module. Also, if a NOP instruction (CROR 15,15,15 ) immediately follows the BL 
instruction, the linkage editor will replace the NOP instruction with the LOAD instruction 
L R2, 20(R1). 


2. If foo is bound in the same module as its caller, and a LOAD instruction 
(L R2,20(R1)) immediately follows the BL instruction, then it will replace the LOAD 
instruction with aNOP (CROR 15,15,15). 


Note: For any export, the linkage editor will insert the procedure’s descriptor into the 
module. 


Pointers to functions 
Function pointer is the name given to a data type whose values range over procedure 
names. Variables of this type appear in several programming languages such as C and 
FORTRAN. In FORTRAN, a dummy argument that appears in an EXTERNAL statement is a 
' function pointer. Support is provided for the use of function pointers in contexts such as the 
target of a call statement or an actual argument of such a statement. 


A function pointer is a fullword quantity that is the address of a function descriptor. The 
function descriptor is a three word object. The first word contains the address of the entry 
point of the procedure, the second word has the address of the TOC of the module in which 
the procedure is bound, and the third word is the environment pointer for languages such as 
Pascal, and PL/I. There is only one function descriptor per entry point. It is bound into the 
same module as the function it identifies if the function is external. The descriptor has an 
external name, which is the same as the function name but with a different storage class that 
uniquely identifies it. It is this descriptor name that is used in all import or export operations. 


Function values : 
Functions return their values according to type: 


e INTEGER and LOGICAL of any length are returned (right justified) in R3. 
¢ Floating—point values are returned in FP1—FP13. 


¢ A single or double complex value is returned in FP1 and FP2. 
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Stack Floor 


Character strings are returned in a buffer allocated by the caller. The address and the 
length of this buffer are passed in R3 and R4 respectively as hidden parameters. This 
means that the first explicit parameter word will be in R5 and that all subsequent 
parameters are moved to the next word. 


The stack floor is a system defined address below which the stack may not grow. All 
programs in the system must avoid accessing locations in the stack segment that are below 
the stack floor. 


There are other system invariants related to the stack that must be maintained by all 
compilers and assemblers, These are: 


No data is saved or accessed from an address lower than the stack floor. 


The stack pointer is always valid. When the stack frame size is more than 32767 bytes, 
care must be taken to ensure that its value is changed in a single instruction. This 
ensures that there is no timing window in which a signal handler would either overlay the 
stack data, or erroneously appear to overflow the stack segment. 


Stack Overflow 
The linkage convention for IBM AIX XL FORTRAN Compiler/6000 requires no explicit inline 
check for overflow. The operating system uses a storage protect mechanism to detect stores 
past the end of the stack segment. 


Prolog/Epilog 


On entry to a procedure, some or all of the following steps may have to be done: 


1. 
2. 


Save the link register at offset 8 from the stack pointer if necessary. 


If any of the CR bits 8-19 (CR2, CR3, CR4) are used then save the CR at displacement 
4 from the current stack pointer. 


Save any non—volatile FPRs used by this procedure in the caller’s FPR save area. There 
is a set of routines named _savef14, _savefi5, ..._ savef31 which may be used. 


4. Save all non—volatile GPRs used by this procedure in the caller’s GPR save area. 


5. Store back chain and decrement stack pointer by the size of the stack frame. Note that if 


a stack overflow occurs, it will be known immediately when the store of the back chain is 
done. 


On exit from a procedure, some or ail of the following steps may have to be performed: 


1. 
2. Restore stack pointer to the value it had on entry. 
3. 
4 
5 


Restore all GPRs saved. 


Restore link register if necessary. 


. Restore bits 8—19 of the CR if necessary. 


. lf any FPRs were saved then restore them using _restfn where n is the first FPR to be 


restored. 


. Return to caller. 
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Traceback 
The compiler supports the traceback mechanism, which is required by the IBM AIX Version 
3 for RISC System/6000 symbolic debugger in order to unravel the call or return stack. Each 
module has a traceback table in the text segment at the end of its code. This table contains 
information about the module including the type of module as weil as stack frame and 
register information. 


Type Encoding/Checking 
Early error detection (prior to execution) is a key objective of the AIX Linkage Convention. 
Execution time errors are hard to find, and a good number of them are caused by 
mismatching subroutine interfaces or conflicting data definition. To help uncover such errors 
early, a scheme has been defined by which compilers will encode information about all 
external symbols (data and programs). This information will then be checked at bind or load 
time for consistency if the EXTCHK option has been specified. 





Sample Program — FORTRAN Calling C 


The following example is to illustrate how program units written in different languages can be 
combined to create a single program. It also shows the methods used for parameter passing 
between FORTRAN and C subroutines with different data types as arguments. 


PROGRAM EXAMPLE 

INTEGER*4 I1, 13, 14, 16, IRET, CFUNC1, CFUNC3, CFUNC4, CFUNC5 
INTEGER*4 IARG1 /1/ 

INTEGER*2 IARG2 /2/ 

INTEGER*1 IARG3 /3/ 

CHARACTER*1 CHAR_ARG1 /’a‘'/, CHAR_ARG2 /'b’/ 

REAL*8 R_ARG1 /1.0/, R_ARG2 /2.0/, R_ARG3 /3.0/, CFUNC2, R2 
COMPLEX*16 CX_ARG1 /(1.0,1.0)/, CX_ARG2/(1.0,2.0)/, 
+ CX_ARG3 /(3.0,3.0)/ 

LOGICAL*4 LARG1 /T/, LARG2 /F/, LARG3 /F/ 

C call C function using integer arguments 
I1 = CFUNC1(IARG1, %VAL(IARG2), %REF(IARG3), %VAL(X”0004”)) 


C call C function using real arguments 
R2 = CFUNC2(R_ARG1, %VAL(R_ARG2), %REF(R_ARG3), %VAL(4.0D0) ) 


C call C function using complex arguments 
I3 = CFUNC3(%VAL(CX_ARG2), %VAL((5.0D0, 6.0D0))) 


C call C functions using logical arguments 
I4 = CFUNC4(LARG1, %VAL(LARG2), %REF(LARG3), %VAL(.TRUE.) ) 


C call C functions using character arguments 
I6 = CFUNC5(%VAL(CHAR_ARG1), %REF(CHAR_ARG2), %VAL('c’)) 


C check values returned 
IF ( (I1.NE. 1) .OR. (R2.NE.1.0) .OR. (I13.NE.1) .OR. (14.NE.1) 
+ -OR. (I6.NE.1) ) PRINT *,”PROGRAM NOT CORRECT” 
END , 
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/* C Program * / 
/* C function that receives integer values * / 
cfuncl( ivarl, ivar2, ivar3, ivar4) 

int *ivarl, ivar4; 

short ivar2; 

char *ivar3; 


int retval; 
if (*ivari!=1 || ivar2!=2 || *ivar3!=3 || ivar4!=4) 


retval = —1; 

} 

else retval = 1; 

return(retval); 
} 
/* C function that receives real values * / 
efunc2(rvarl, rvar2, rvar3, rvar4) 
double *rvarl, rvar2, *rvar3, rvar4; 
{ 
double retval; 

if ( *rvarl!=1.0 [| rvar2!=2.0 || *rvar3!=3.0 || rvar4!=4.0) 


{ 
} 


else retval = 1.0; 
return(retval); 


retval=—1.0e0; 


/* C function that receives FORTRAN complex values as real * / 
cfunc3(rvarl, rvar2, rvar3, rvar4) 
double rvarl, rvar2, rvar3, rvar4; 


{ 
int retval; 
if ( rvarl!=1.0 || rvar2!=2.0 || rvar3!=5.0 || rvar4!=6.0 ) 
retval=—1; 
else retval = 1; 
return(retval); 
; 
/* C function that receives FORTRAN logical values */ 


cfunc4(lvarl, lvar2, lvar3, lvar4) 
int *lvarl, lvar2, *lvar3, lvar4; 


{ 
int retval; 
if (*lvar1!=0x01l || lvar2!=0x00 || *lvar3!=0x00 || lvar4!=0x01) 
retval = —-1; 
else retval = 1; 
return(retval); 
/* C function that receives FORTRAN character values * / 


cfunc5(chvarl, chvar2, chvar3) 
char chvarl, *chvar2, chvar3; 


{ 
int retval; 
if (chvari!='a’ || *chvar2!='’b’ || chvar3!='’c’) 
retval = —1; 
else retval = 1; 
return(retval); 
} 
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Appendix A. Sample Program 


The following sections outline a sample program, the listing it would produce with the 
SOURCE compiler option specified, and the output from running the program. 





Source File 
PROGRAM CALCULATE 
Program to calculate the sum of up to n values of x**3 


where negative values are ignored. 
Stop if the sum is negative. 


qaqaaaa 


READ(5,*) N 
SUM=0 
DO 10 I=1,N 
READ(5,*) X 
IF (X.GE.0) THEN 
Y=X**3 
IF (SUM.GE.0) THEN 
SUM=SUM+Y 
ELSE 
GOTO 20 
END IF 
END IF 
10 CONTINUE 
20 CONTINUE 
WRITE(6,*) ‘This is the sum:’,SUM 
STOP 
END 


Sample Listing 
If you specify the SOURCE compiler option, XL FORTRAN produces the following listing: 


IBM AIX XL FORTRAN Compiler/6000 Version 01.01.0000.0000 —— user20.f 11/26/03 
05:42:40 


>>>>> OPTIONS SECTION <<<<< 
vee Options In Effect eae 
SOURCE 


>>>>> SOURCE SECTION <<<<< 
‘an PROGRAM CALCULATE 
2 |c 
3 |c Program to calculate the sum of up to n values of x**3 
4 |c where negative values are ignored. 
5 |c Stop if the sum is negative. 


6 |c 

7 | READ(5,*) N 

8 | SUM=0 

9 | DO 10 I=1,N 

10> READ(5,*) X 

11 | IF (X.GE.0) THEN 
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12. Y=X**3 
13 | IF (SUM.GE.0) THEN 
14 | SUM=SUM+Y 
15 | ELSE 
16 | GOTO 20 
1) END IF 
18 | END IF 
19 |10 CONTINUE 
20 {20 CONTINUE 
21%] WRITE(6,*) ‘This is the sum:’,SUM 
22 | STOP 
23 | END 
** calculate === End of Compilation 1 === 


>>>>> FILE TABLE SECTION <<<<< 


FILE CREATION FROM 
FILE NO FILENAME DATE TIME FILE LINE 
0 user20.f 07/17/89 23:24:55 


>>>>> COMPILATION EPILOGUE SECTION <<<<< 


FORTRAN Summary of Diagnosed Conditions 


TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL 

(U) (S) (E) (W) (T) 

0 0 0 0 0 0 
SOULCE -FECOrGS: TACs. sc ue eed Base doe ae fa bee Oak eS Ste a Sew we . 23 
Compilation start......... (je tieied sees osewseae 21/26/03- 05242540 
COMpP2 LACLON. Ones is gshs ae oes. 64 Rare ees Hecate es oe. 11/26/03 05:42:40 
Elapsed time....... ee ee ee ee ee er ee ee bik led Meo 00:00:00 
Total COU. FAmMCs 2 4 as ews a ee eae CWS SE Reo ee Sevag ee wes ale 0.300 
Virtual cpu times <6 sccsiee ee ee ee ee ee a Tere rece ee ere ee 0.400 


1501-510 Compilation successful for file user20.f. 
1501-543 Object file created. 





Output Produced 


Given the input 5 37 22 —4 19 6, the following output would appear when the sample 
program runs: 68376.00000 
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Appendix B. ASCII/EBCDIC Character Set 


XL FORTRAN uses the ASCII character set as its collating sequence. 


This appendix lists the standard ASCII and EBCDIC characters in numerical order with the 
corresponding decimal and hexadecimal values. The table indicates the control characters 
with “ctr1—” notation. For example, the horizontal tab (HT) appears as “Ctr1—1”, which you 
enter by simultaneously pressing the ctrl key and I key. 


Decimal | Hex | Control ASCII EBCDIC 
Value Value | Character | Symbol Symbol 
ru! 


}00 = {Ctr-@ ss N 
Ctrl-A SOH start of heading start of heading 
start of text 


start of text 
04 E 


[NUL 
cc 
ee 
ae 
endoftransmission [SEL [select 
ed 
er! 
ee 
co 
Ee) 





null 











7 [ores 
fe |os[oncn [88 [backspace 
aw 


: 
i 
ee) 
n” 
+ 
' 


NUL 

OH 

TX 
ETX 

EL 
HT 
RNL 
DEL 
aE 
FF 
CR 
SO 
DLE 
DC1 
DC2 
DC3 
NL 

S 
UBS 


at fos [ou-x|vr__|vericaltab————S=dVT erica 
rea foo owt Jer ffomteed ——~=«d—~=ifommieed 
16 [od [oreM [OR |eariageretwm __~(OR_[oariageretumn 
4 foe oun [80 |anitot ——=~=«*zSO=idshitoot 
sa 
DE 
[poe 


is or [oreo [si__fentin 
i [orea [DCH Jaeviee contoit [DCT [device contol + 
fis [ia [ores [C3 faevice contwois____—[DC3__[device contr 
14 CtriI-T DC4 device control 4 RES/ restore/enable 

ae le cevnconels ene _[presonaton® 
at [18 [ercU[NAK [negative acknowiedge[NL__[newne 
ze [46 [orev [SYN [eynchronousile 


Ber. 
TON RE fentetianemesionneek POC [Eommincatons 
communications 
aa [te [owe [CAN [eancel [GAN [oancol 
a5 [19 [orev [Ew [endofmeaum [EM [endofmedium 
25 [7A [owez [SUB [substitute [UBS [unitbackspace 


17 
18 


device control 2 






S 
S 
S 
B 
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Decimal |Hex | Control ASCII EBCDIC 
Value Value | Character | Symbol a 
ee Ctri-\ 2 eee fileseparator IFS _| interchange file separator interchange file separator 


Ctrl-] group separator interchange group 
separator 

Ctri—* record separator interchange record 
| separator 


1F Ctri—_ | unit separator IUS/ITB_ | interchange unit 
separator / intermediate 
transmission block 


|! | exclamation fexclamation point = Se or start of significance 


{seen double quotation | FS field separator 
a 


[WUS | wordunderscore | underscore 


#__{numbersign sign SS word uncorerere 
ee 


a7 fas | C* «percent sion 

ee ee 

Ce Ce 
right parenthesis 


asterisk — set model switch 


















” 
cal 


left parenthesis 


(oe) — 


addition sign 


subtraction sign 


period 


“J 


& pis db 
nN 
O 


right slash 










synchronous idle 
index return 
presentation position 


numeric pace 


semicolon 
less than 
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See [ee tine [rb [os 
Value Value | Character | Symbol Symbol 

ee se [SiS —=seaterthan 

ee ae ee eee ORO eRe 
Ce CC CC 
Ca ss ais Pe 














ae oe ee es ee | | ee 
Oe a Oe eee eee 
Pa ad ee ee 
ee ee 
pf acitionssign 


logical or 
ampersand 


a 

ration paint 
jeans «dS —~darsign 
fefisash iar 
[a Se C—O 
Tat creates —‘semicclon 
[= anerscore [= leis not 
es feo irae i=in ign 
arf [ida tas 
“Soe | ie Gasoen Son! SGRBSCSEEene inane: MEAEaTerNE 
o_ fe [de 


Appendix B. ASCII/EBCDIC Character Set 71 


oi ol oi f&/ +s 
TI (@) = nm) mM 







ie i Soe ome [S| 
Value rae a Symbol Symbol 
1 100 | 
a Se ee eee! ieceeereratel 
A CD 
Taal 2 (Sa (eae ea 
A CC 
ros fs ft CT C—<“<~wSC“‘iYSSC 
[ae a |RSS OAC aa 
CO FC 
Po  Fperent sign 
eee 


greater than 






















question mark 





NI NI NIN] Oo o 
wl rm|—)o} mn O 


Ea Ce ee eee eee 











(i eR 

re [(t_|ietbraco «dP —irumbersion | 
fae fre [iT dogiealor «diatom 
oe See a 
fas fre simian f= ont 


mark 
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Decimal |Hex | Control ASCII EBCDIC 
reee a amar ae aR eee | Goan ROGERS 










a Le es Ae ee ANd! Serene 
PO ea cee I ed 


162 
163 


se 






ae Le ne Pe See See DOs 
ae CC ae ae Oe eee 
[ae CSE GR eee a | ee 
a eat a oe ee ee 
ae (a ee [ aeenieemcen | Saas: Seen emeeeie 
ieee i Rn IO Ske ee eee 
ete ee 
cE Ce ee EE ee Sirens: PERE Eee 
a CRE a: es ORR ei, Cee Senne 
LE Cee ee Re ne ee GR eeeraaes 
UN Ne eee epee ae ce 2 a Se ee en 
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Decimal | Hex | Control ASCIl EBCDIC 
Value Value | Character | Symbol ee 


ee 








ae RS ATE AN eee Renee eee! 
esses! 







Cones a a ae ine eet 
[ee Ce a eS RR ER ee ee 
ae Ce eS ioe ieee ene A) eae ee 
ae eae ee eT eee ee Se eee ees 
a Cae ee ee Re Re Pee 
Lele eee Be Peeper ee ae eee 
ea eee eee TS eee eet eee mere 
ee (es ees Da ee Os 
a a ee oe wee eal 
ae Ce ie es ne i eee 
LS Ce ee ee rE HS Res 
SA (LS asia (nee [easel cat nt (Peeled | 
a ae es i is eek eer 
[eae (ce aa A ee CS (ee 
a [Cael ae eae aeeeiereneeerdine |; Saves ED eaeeeT 
[eee (a eee ee ee eee | eee ee 
aa (ae ST Re (eee (OSaRe eee 
(a (a as ae Cee ee Ce ae eee 
ae (Sa en (Se (eee | 
Toa Ce a a ee | ee eee 
Ps a te ee ee a ee 
czas (Ce aaa aaa (aa (ee ee airy, 
a (CE es eS cee eee eee (Eee 
Ee Ce a ae ees Ens eee 
ee ae ee ee 
De ae Na ae eI ee ee 
Ee ea i ee ES (Ea ee Ge ee eee 
PE en a a 
Pa ee ee ee ed 
Es aan (ea a (ies | a [ee 
eee (oe eee Mien See eee | eee See 
Bee Ss a ae ee eee (era Eee ere 
ee Cs a ee ae ee ee oe eee 
EEA (eS Ae (aa ee (Eee ee | (On 
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= 
Value Value | Character — Se 

ee es 

ie el ce Reece at eee 
Boa © cor es ie a nee ieee 
ae ae a a (|< ee (ee 
EA Ee a (| See) eee 
Cee 2 os i Rea Gees Sas eee 
BOS Ce ie Se eee es eee 
Ee le | ee ema, ee eee 
2 ae eee ee ee es ee Sere 


222 (DE 
a ee ER (a (ane (Dereee: | eee 
left slash 






4 






















vertical line 
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Decimal |Hex |Contro! | ASCII 19 EBCDIC 
Value Value | Character | Symbol Symbol 
Ee |e a ee: eee ee ee 


Eine Ca Es ee ee eet ene! 
eee ie eee ae eS ee 
a a ae a Tee ae 
PE ca fa oe Oe | ION eer | 
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Appendix C. FORTRAN Specific AIX Commands 


You can use the following two IBM AIX Version 3 for RISC System/6000 commands with XL 
FORTRAN files. 


asa Command 


The asa command interprets the output of FORTRAN programs that use ASA carriage 
control characters. 


= herdines 


The asa command processes either the files whose names are given as arguments, or the 
standard input stream, if no file name is supplied. The first character of each line is assumed 
to be a control character. The control characters and their meanings are: 


First Character | Vertical Spacing before Printing 
of Record 


| Blank | Blank ~——‘| Single new-—line before printing (blank character). 


a Sa Doubie new—line before printing. 


New page before printing. 
















Overprint previous line. 


Lines beginning with characters other than the defined control characters are treated as if 
they begin with a blank character. If any such lines appear, an appropriate diagnostic 
appears on standard error. The first character of a line is not printed. 


Executing the asa command causes the first line of each input file to start on a new page. 


To correctly view the output of FORTRAN programs which use ASA carriage control 
characters, you can use the asa command as a filter. For example, the following pipe: 


a.out | asa > lpr 


directs the output produced by the program a.out, properly formatted and paginated, to the 
line printer lpr. 


FORTRAN output sent to the file myfile can be viewed using the following form of the asa 
command: asa myfile. 


fsplit Command 


The fsplit command splits specified FORTRAN source program files into several files. 
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The fsplit command splits the specified files into separate files, with one procedure per file. 
A procedure in this context includes the following program segments: 


¢ Block data 
¢ Function 
¢ Program 
¢ Subroutine. 


The naming conventions for the resulting files are as follows: 


If the program or subprogram is explicitly named name, the resulting file is name.f. For 
example, if you use the fsplit command on the following program: 


program splitup 
call split2 
stop 
end 
subroutine split2 
return 
end 
the resulting files are splitup.f and split2.f. 
¢ If you have an unnamed block data subprogram, the resulting file will be blockdatat.f. 
e If you do not have a program or subprogram statement, the resulting file will be main.f. 


You can specify one of the following options in the command line: 


= a Input files are FORTRAN language files. This option is the default. 
Pe Se oe Strip FORTRAN input lines to 72 or fewer characters, and remove trailing blanks. 
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Appendix D. XL FORTRAN Internal Limits 


The following table lists the internal XLFORTRAN compiler limits. The numbers within 
parentheses in the table correspond to the notes which follow the table. 


Language Feature 

Maximum length of a free-form statement 

Maximum number of symbolic names in a program unit 
Maximum Hollerith constant length 

Maximum number of computed GOTO statement numbers 


Maximum DO loop and implied DO loop nesting !evel 


Maximum block IF statement nesting level 

Maximum number of nested INCLUDE compiler directives 
Maximum number of parentheses groups in a format 
Maximum numeric format field width 

Maximum character format field width 





Maximum number of times a format code can be repeated 


Figure 7. Internal FORTRAN Compiler Limits 


Notes on compiler limits: 


1. The number of symbolic names is limited by the size of the dictionary. The default 
dictionary size is 2048, but may be modified through the ST_SIZE option. 


2. The maximum DO loop and block IF nesting level has a default value of 50, but may be 
modified through the BK_SIZE option. 
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Appendix E. Migration Considerations 


This appendix outlines some items for consideration if you are porting source code to XL 
FORTRAN. The XL FORTRAN compiler provides no object code compatibility on the IBM 
AIX RISC System/6000 computer, so you must recompile any source code before it can be 
run. 


Compatibility with the ANSI Standard 
XL FORTRAN is fully compatible with the ANSI X3.9-1978 standard (Full ANSI FORTRAN 
77). lf you specify the FIPS compiler option, all features which are extensions to the ANSI 
- standard are flagged with a warning message. 


Compatibility with SAA FORTRAN 
XL FORTRAN is fully compatible with SAA FORTRAN Release 1.0. If you specify the SAA 
compiler option, all features which are extensions to SAA FORTRAN Release 1.0 are 
flagged with a warning message. 


Compatibility with RT PC FORTRAN 77 
XL FORTRAN is source code compatible with RT PC FORTRAN 77 with the exception that 
character constants outside DATA statements are not followed by a null character as they 
are in RT PC FORTRAN 77. The purpose of this feature is to provide compatibility with the C 
language. XL FORTRAN allows you to append the null character to character constants. 


Compatibility with VS FORTRAN (S/370) 
This section lists the major differences between XL FORTRAN and VS FORTRAN, both in 
terms of the language specification and the implementation. 

Language differences 
Extended precision data types 


XL FORTRAN handles any extended precision real or complex data as double precision real 
or complex data respectively, since the IBM AIX RISC System/6000 computer does not 
support extended precision floating point data. Such data is allocated appropriate storage 
(16 and 32 bytes respectively) to maintain equivalence relationships. 


Floating-point representation 


XL FORTRAN uses the ANSI/IEEE binary floating—point representation. This results in 
different ranges of representable values for real data: 


© Copyright IBM Corp. 1990 Appendix E. Migration Considerations 81 


82 


Length | Absolute Absolute 
(bytes) | minimum maximum 
0.1175494E-37 {0.340 2824E+39 {Approximately 8 
. decimal digits 
4 0.539 7605 E-78 |0.723 7005 E+ 76 | Approximately 6 
decimal digits 
222 507 4 D-307 | 0.179 769 3 D+309 | Approximately 17 
decimal digits 








0. 
0.539 760 5 D—- 78 |0.723 7006 D+ 76 | Approximately 15 
; decimal digits 
0.222 507 4 D-307 | 0.179 769 3 D+309 | Approximately 17 
. decimal digits 
0.539 760 5 Q—78 | 0.723 700 6 Q+ 76 | Approximately 32 
decimal digits 


Note: Ranges specified are for normalized real values. 


Keyed access input/output 
The IBM AIX RISC System/6000 computer does not provide the facilities required for keyed 


_ access input/output. Therefore, XL FORTRAN does not include the VS FORTRAN 


statements for keyed access input/output: 
- READ with keyed access 
— WRITE with keyed access 
— REWRITE. 
Asynchronous input/output 
XL FORTRAN does not provide the asynchronous input/output statements: 


— Asynchronous READ 
— Asynchronous WRITE 
— WAIT. 


Note also that VS FORTRAN only provides asynchronous I/O under MVS. 


BLANK specifier 


XL FORTRAN assumes a default of ‘NULL’ for the BLANK specifier when reading from a 
unit for which an OPEN statement was not specified. The default for VS FORTRAN is 
‘ZERO’. 


INCLUDE statement 


XL FORTRAN allows apostrophes and quotation marks as delimiters (as well as 
parentheses). 
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Debug statements 
XL FORTRAN does not include the VS FORTRAN debug statements: 


— AT 

— DEBUG 
END DEBUG 
DISPLAY 
TRACE OFF 
TRACE ON. 


Backslash in character and Hollerith constants 


For compatibility with C language usage, XL FORTRAN treats the backslash as an escape 
character. Two consecutive backslashes within a character or Hollerith constant represent 
the backslash character. 


Hexadecimal constants: truncation 


The truncation of hexadecimal constants by XL FORTRAN is always on the left, but in VS 
FORTRAN the truncation is on the left for numeric data and on the right for character data. 
For example: 


CHARACTER C /Z4122/ ! ‘A’ (EBCDIC) in VS FORTRAN, 
! ‘B’ (ASCII) in XL FORTRAN 
INTEGER*2 I /Z000001/ ! 1 in VS FORTRAN, 1 in XL FORTRAN 


Intrinsic functions 
XL FORTRAN does not provide the following intrinsic functions: 


— COTAN 
— Extended precision intrinsic functions. 


Extended error handling subroutines 


XL FORTRAN does not provide the extended error handling subroutines available in VS 
FORTRAN: 


~ ERRMON 
ERRSAV 
ERRSET 
ERRSTR 
— ERRTRA. 


Service and utility subprograms 


XL FORTRAN does not provide the service and utility subprograms available in VS 
FORTRAN: 


- DVCHK 

— OVERFL 

— DUMP/PDUMP 

— CDUMP/CPDUMP 
— EXIT 

— SDUMP 

— XUFLOW. 
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Implementation differences 


Character passing to subprograms 


Characters are passed in two words, one containing the address of the string and the other 
containing the length. The words containing the lengths of character arguments appear after 
all words containing addresses. This facilitates interlanguage calls. 


For example: 


CHARACTER C1,C2 
INTEGER 11,12 
CALL SUBR(C1,I1,C2,I2) 


In the above example, the call to SUBR would result in the following parameter list being set 
up: 


addr(C1l),addr(I1),addr(C2),addr(1I2),len(C1l),len(C2) 
VS FORTRAN uses a shadow parameter to pass the length of the string. Only the register 
containing the address appears in the call. 
Normalization by adding zero 
X =X +0 


This assignment is eliminated through optimization performed by the XL FORTRAN compiler 
back end. In contrast, VS FORTRAN interprets this assignment as a request to normalize 
the floating—point number x. 


Compatibility with RT PC VS FORTRAN 
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The XL FORTRAN compiler is source code compatible with RT PC VS FORTRAN, except 
for: 


¢ Mode compiler options (IBM, R1, AN, VX) 
¢ The following feature of R1 mode: 
— Character constants outside DATA statements are followed by a null character. 
¢ The following features of VX mode: 
— BYTE data type 
- VIRTUAL statement 
— Extended range of a DO loop 
— TYPE and ACCEPT statements 
— Logicals or integers in arithmetic or logical expressions 
- Qedit—descriptor for character count editing 
— NAMELIST statement allowed anywhere before use 
— ‘rn record number specifier in direct input/output statements 
‘ — Certain intrinsic functions (for example, trigonometric degree functions). 
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Appendix F. Single Precision Floating Point Overflow 


The following information is based on the IBM RISC System/6000 hardware technical 
reference manual description of floating point arithmetic. It describes an error in the 
implementation of the frsp (floating round to single precision) instruction which may affect 
some single precision floating point results. The XFLAG=DD24 compiler option generates 
instructions to avoid the error as described here. 


The frsp Instruction 
The Floating Round to Single Precision (frsp or frsp.) instruction may produce incorrect 
results when all of the following conditions are met: 


1. The frsp is dependent on a previous floating point arithmetic operation. Dependent 
means that it uses the target register of the arithmetic operation as the source register. 


2. Less than two nondependent floating point arithmetic operations occur between the frsp 
and the operation on which it is dependent. 


3. The magnitude of the double precision result of the arithmetic operation is less than 
2**128 before rounding. 


4. The magnitude of the double precision result after rounding is exactly 2**128. 
lf the error occurs, the magnitude of the result placed in the target register is 2**128: 
X’47F0000000000000’ or X'C7F0000000000000’ 


This is not a valid single precision value. A single precision store of this value will store the 
same value, plus or minus infinity, as if the frsp had executed correctly. But the result in the 
target register is the double precision representation of 2**128. 


Effects of Compiler Option XFLAG=DD24 
One way to avoid this error is to insure that two nondependent floating point operations are 
placed between a floating point arithmetic operation and the dependent round to single 
precision. The target registers for these operations should not be the same register that is a 
source register for the frsp. 


If you use the XFLAG=DD24 option, the compiler detects the first two conditions above that 
are necessary for this error. The compiler inserts two no—op Irfl instructions between the 
nondependent floating point operation and the dependent frsp. That eliminates one of the 
conditions necessary for the error. 


The XFLAG=DD24 option only affects the results of floating point calculations where the 
magnitude of the double precision result is less than 2**128, the result is rounded to single 
precision, and the magnitude of the rounded result is exactly 2**128. The effect of the 
XFLAG=DD24 option is that the rounded result is always treated as a single precision 
infinity, and not as a valid double precision value 2**128. 


The extra no—op Irfl instructions inserted by the XFLAG=DD24 option may degrade the 
performance of the compiled program. These extra Irfl instructions are most likely to be 
inserted if you compile with the OPT and —qrndsngl compiler options. 
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Glossary 


This is a glossary of commonly used terms in the User’s 
Guide for IBM AIX XL FORTRAN Compiler/6000 and the 
Reference Manual for IBM AIX XL FORTRAN 
Compiler/6000. It includes definitions developed by the 
American National Standards Institute (ANSI) and entries 
from the /BM Dictionary of Computing, SC20—1699. 


alphabetic character 

A letter or other symbol, excluding digits, used in a 
language. Usually the uppercase and lowercase letters A 
through Z plus other special symbols (such as $ and _) 
allowed by a particular language. 


alphanumeric 

Pertaining to a character set that contains letters, digits, 
and usually other characters, such as punctuation marks 
and mathematical symbols. 


American National Standard Code for Information 
Interchange (ASCIl) 

The code developed by ANSI! for information interchange 
among data processing systems, data communication 
systems, and associated equipment. The ASCII character 
set consists of 7—bit control characters and symbolic 
characters. 


American National Standards Institute (ANSI) 

An organization sponsored by the Computer and 
Business Equipment Manufacturers Association through 
which accredited organizations create and maintain 
voluntary industry standards. 


argument 
A parameter passed between a calling routine and a 
called routine. 


arithmetic constant 
A constant of type integer, real, double precision, or 
complex. 


arithmetic expression 

One or more arithmetic operators and arithmetic 
primaries, the evaluation of which produces a numeric 
value. An arithmetic expression can be an unsigned 
arithmetic constant, the name of an arithmetic constant, 
or a reference to an arithmetic variable, array element, or 
function reference, or a combination of such primaries 
formed by using arithmetic operators and parentheses. 


arithmetic operator 

A symbol that directs a compiler to perform an arithmetic 
operation. The arithmetic operators for XL FORTRAN 
are: . 


+ addition 

- subtraction 

* multiplication 
/ division 

*% exponentiation 
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array 
A variable that contains an ordered group of data objects. 
All objects in an array have the same data type. 


array declarator 

The part of a statement that describes an array used ina 
program unit. It indicates the name of the array, the 
number of dimensions it contains, and the size of each 
dimension. An array declarator may appear ina 
DIMENSION, COMMON, or explicit type statement. 


array element 

A single data item in an array, identified by the array 
name followed by one or more integer expressions called 
subscript expressions indicating its position in the array. 


array name 
The name of an ordered set of data items. 


assignment statement 
An operation that assigns stores the value of the right 
operand in the storage location of the left operand. 


binary 
Pertaining to a system of numbers to the base two; the 
binary digits are 0 and 1. 


binary constant 
A constant that is made of one or more binary digits. 


blank common 
An unnamed common block. 


block data subprogram 
A subprogram headed by a BLOCK DATA statement and 
used to initialize variables in named common blocks. 


character constant 
A string of one or more alphabetic characters enclosed in 
single or double quotation marks. 


character expression 

A character constant or variable, a character array 
element, a character substring, a character valued 
function reference, or a sequence of them separated by 
the concatenation operator, with optional parentheses. 


character operator 
A symbol which represents an operation, such as 
concatenation (//)., to be performed on character data. 


character string 
A sequence of consecutive characters. 


character substring 
A contiguous portion of a character string. 


character type 
A data type that consists of alphanumeric characters. 
See also data type. 


collating sequence 

The sequence in which characters are ordered within the 
computer for sorting, combining, or comparing. The 
collating sequence for IBM AIX Version 3 for RISC 
System/6000 is ASCII. 
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comment 

A language construct for the inclusion of text in a 
program that has no impact on the execution of the 
program. 


common block 
A storage area that may be referred to by a calling 
program and one or more subprograms. 


compilation time 

The time during which a source program is translated 
from a high—level language to a machine language 
program. 


compilation unit : 
A portion of the computer program that is sufficiently 
complete to be compiled correctly. 


compile 

To translate a program written in a high—level 
programming language into a machine language 
program. 


compiler 

A program that translates instructions written ina 
high-level programming language into machine 
language. 


compiler directive 
A statement that controls what the compiler does rather 
than what the user program does. 


complex constant 

An ordered pair of real or integer constants separated by 
a comma and enclosed in parentheses. The first constant 
of the pair is the real part of the complex number; the 
second is the imaginary part. 


complex number 

A number consisting of a ordered pair of real numbers, 
expressible in the form a+bi, where a and b are real 
numbers and i squared equals minus one. 


complex type ’ 

In XL FORTRAN, a data type that represents the values 
of complex numbers. The value is expressed as an 
ordered pair of real data items separated by a comma 
and enclosed in parentheses. The first item represents 
the real part of the complex number; the second 
represents the imaginary part. 


connected unit 

In XL FORTRAN, a unit that is connected to a file in one 
of three ways: explicitly via the OPEN statement to a 
named file, implicitly via an OPEN statement to an 
unnamed file, or implicitly by a READ or WRITE 
statement to a unit for which no OPEN statement has 
been specified. 


constant 

A data item with a value that does not change. Contrast 
with variable. The four classes of constants specify 
numbers (arithmetic), truth values (logical), character 
data (character), and untyped data (hexadecimal, octal, 
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and binary). 


continuation line 

A line of a source statement into which characters are 
entered when the source statement cannot be contained 
on the previous line or lines. 


control statement 

A statement that is used to alter the continuous 
sequential invocation of statements; a control statement 
may be a conditional statement, such as IF, or an 
imperative statement such as STOP. 


data 

1. Arepresentation of facts or instructions in a form 
suitable for communication, interpretation, or 
processing by human or automatic means. 

2. In FORTRAN, data includes constants, variables, 
arrays, and character strings. 


data item 
A unit of data to be processed. Includes constants, 
variables, array elements, or character strings. 


data type 

The properties and internal representation that 
characterize data and functions. The basic types are 
integer, real, complex, logical, double precision, and 
character 


debug 
To detect, locate, and remove mistakes from a program. 


default value . 

A value stored in the system that is used when no other 
value is specified. 

digit 

A character that represents a non-negative integer. For 
example, any of the numerals from 0 through 9. 


DO loop 
A range of statements invoked repetitively by aDO 
statement. See also range of a DO loop. 


DO variable 

A variable, specified in a DO statement, that is initialized 
or increased prior to each occurrence of the statement or 
statements within a DO range. It is used to control the 
number of times the statements within the range are 
executed. See also range of a DO loop. 


double precision constant 

A processor approximation to the value of a real number 
that occupies 8 consecutive bytes of storage and may 
assume a positive, negative, or zero value. The precision 
is greater than that of type real. 


dimension 
The attribute of size given to arrays and tables 


dummy argument 

A variable within a subprogram or statement function 
definition with which actual arguments from the calling 
program or function reference are positionally associated. 
Dummy arguments are defined ina SUBROUTINE or 
FUNCTION statement, or in a statement function 
definition. 


EBCDIC 

Extended binary—coded decimal interchange code. A 
code developed for the representation of textual data. 
EBCDIC consists of a set of 256 eight—bit characters. 


edit 

1. To modify the form or format of data; for example, to 
insert or remove characters such as for dates or 
decimal points. . 

2. To check the accuracy of information that has been 
entered, and to indicate if an error is found. 


embedded blanks 
Blanks that are surrounded by any other characters. 


executable program 

A program that can be executed as a self-contained 
procedure. It consists of a main program and, optionally, 
one or more subprograms or non—FORTRAN-defined 
external procedures, or both. 


executable statement 

A statement that causes an action to be taken by the 
program; for example, to calculate, to test conditions, or 
to alter normal sequential execution. 


existing file 
A file that has been defined and, conceptually, resides on 
the storage medium. 


existing unit 
A valid unit number that is system specific. 


exponent 
A number, indicating to which power another number (the 
base) is to be raised. 


expression 

A language construct for computing a value from one or 
more operands, such as literals, identifiers, array 
references, and function calls. 


external routine 
A procedure or function called from outside the program 
in which the routine is defined. 


field 
An area in a record used to contain a particular category 
of data. 


file 

A sequence of records. If the file is located in internal 
storage, it is an internal file; if it is on an input/output 
device, it is an external file. 


floating-point constant 

A constant representation of a floating—point number 
expressed as an optional sign followed by one or more 
digits an including a decimal number. See also 
floating—point number. 


floating-point number 

A real number represented by a pair of distinct numerals. 
The real number is the product of the fractional part, one 
of the numerals, and a value obtained by raising the 
implicit floating—point base to a power indicated by the 
second numeral. / 


fold 
To translate the lowercase characters of a character 
string into uppercase. 


format 

1. A defined arrangement of such things as characters, 
fields, and lines, usually used for displays, printouts, 
or files. 

2. To arrange such things as characters, fields, and 
lines. 


formatted data 

Data that is transferred between main storage and an 
input/output device according to a specified format. See 
also list-directed data and unformatted data. 


FORTRAN (FORmula TRANslation) 
A high-level programming language used primarily for 
scientific, engineering, and mathematical applications. 


function 

A routine that returns the value of a single variable and 
that usually has a single exit. See also, function 
subprogram, intrinsic function, and statement 
function. 


function reference 
The appearance of an intrinsic function name or a user 
function name in an expression. 


‘function subprogram 


In XL FORTRAN, a subprogram headed by a FUNCTION 
statement. 


hexadecimal . 

Pertaining to a system of numbers to the base sixteen; 
hexadecimal digits range from 0 (zero) through 9 (nine) 
and A (ten) through F (fifteen). 


hexadecimal constant 
A constant, usually starting with special characters, that 
contains only hexadecimal digits. 


Hollerith constant 

A string of any characters capable of representation in 
the processor and preceded with nH, where n is the 
number of characters in the string. 


implied DO 
An indexing specification (similar to a DO statement, but 


without specifying the word DO) with a list of data _ 
elements, rather than a set of statements, as its range. 
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input 
Data to be processed. 


input/output (1/0) 
Pertaining to either input or output, or both. 


input/output list 

A list of variables in an input or output statement 
specifying which data is to be read or which data is to be 
written. An output list may also contain a constant, an 
expression involving operators or function references, or 
an expression enclosed in parentheses. 


integer 
A positive or negative whole number or zero. 


integer constant 
A string of decimal digits containing no decimal point. 


integer expression 
An arithmetic expression whose values are of integer 
type. 


integer type 
An arithmetic data type that consists of integer values. 


intrinsic function 

In XL FORTRAN, a function that is supplied with the run 
time environment that performs mathematical, character, 
bit manipulation, or logical operations. 


0 
See input/output. 


1/O list 
See input/output list. 


keyword 

A specified sequence of characters that are significant to 
the compiler in a particular context. No sequence of 
characters is reserved in all contexts. 


length specification 
A source language specification of the number of bytes to 
be occupied by a variable or an array element. 


letter 
An uppercase or lowercase character from the set A 
through Z. 


link—editing 
To create a loadable computer program by means of a 
linkage editor. 


linkage 

The part of the program that passes control and 
parameters between separate portions of the computer 
program. 


linkage editor 

A program that resolves cross-references between 
separately compiled or assembled object modules and 
then assigns final addresses to create a single 
relocatable load module. If a single object module is 
linked, the linkage editor simply makes it relocatable. 
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list—directed 
An input/output specification that uses a data list instead 
of a FORMAT specification. 


list-directed data 

Data that is transferred between main storage and an 
input/output device according to the length and type of 
variables in the input/output list. See also formatted data 
and unformatted data. 


literal 
A symbol or a quantity in a source program that is itself 
data, rather than a reference to data. 


logical constant 
A constant with a value of either true or false. 


logical expression 

An expression consisting of logical operators and/or 
relational operators that can be evaluated to a value of 
either true or false. 


logical operator 
A symbol that represents an operation on logical 
expressions: 


-NOT. (logical negation) 

-AND. (logical conjunction) 
-OR. (logical union) 

-EQV. (logical equivalence) 
-NEQV. (logical nonequivalence) 
-XOR. (logical nonequivalence) 


logical primary 
A primary that can have the value true or false. 


logical type 
A data type that contains values true and false. 


looping 

A sequence of instructions performed repeatedly until an 
ending condition is reached. Usually controlled by a DO 
statement. 


main 

The default name given to a main program by the 
compiler if the main program was not named by the 
programmer. 


main program 
The first program unit to receive control when a program 
is run. Contrast with subprogram. 


message 
An error indication, or any brief information that a 
program writes to standard error or a queue. 


name 
A sequence of 1 to 250 letters or digits, the first of which 
must be a alphabetic, that identifies a data object. 


named common 
A separate common block consisting of variables, and 
arrays, and given a name. 


nest 

To incorporate a structure or structures of some kind into 
a structure of the same kind. For example, to nest one 
loop (the nested loop) within another loop (the nesting 
loop); to nest one subroutine (the nested subroutine) 
within another subroutine (the nesting subroutine). 


nested DO 
A DO loop or DO statement whose range is entirely 
contained within the range of another DO statement. 


nonexecutable program unit 
A block data subprogram. 


nonexecutable statement 

A statement that describes the characteristics of a 
program unit, of data, of editing information, or of 
statement functions, but does not cause any action to be 
taken by the program. 


nonexisting file 
A file which does not physically exist on any accessible 
storage medium. 


numeric 
Pertaining to any of the digits 0 through 9. 


numeric character 
Synonym for digit. 


numeric constant 
A constant that expresses an integer, real, or complex 
number. 


octal 
Pertaining to a system of numbers to the base eight; the 
octal digits range from 0 (zero) through 7 (seven). 


octal constant 
A constant that is made of octal digits. 


one-trip DO-loop 
A DO loop that is executed at least once, if reached, even 
if the iteration count is equal to 0. 


output 
The result of processing data. 


pad 
To fill unused positions in a field or character string with 
dummy data, usually zeros or blanks. 


parameter 

A variable that is given a constant value for a specified 
application and that either is used as input or controls the 
actions of the procedure or program. 


preconnected file 

A unit or file that was defined at installation time. For 
example, standard input and standard output are 
preconnected files. 


predefined convention 

The implied type and length specification of a data item, 
based on the initial character of its name when no explicit 
specification is given. The initial characters | through N 


imply type integer of length 4; the initial characters A 
through H, O through Z, $, and _ imply type real of length 
4. 


primary 

An irreducible unit of data; a single constant, variable, 
array element, function reference, or expression enclosed 
in parentheses. 


procedure 

A sequenced set of statements that can be used at one 
or more points in one or more computer programs, that is 
usually given one or more input parameters and returns 
One or more output parameters. A procedure consists of 
subroutines, external functions, statement functions, and 
intrinsic functions. 


program 

1. A sequence of instructions suitable for processing by 
a computer. Processing can include the use of an 
assembler, compiler, interpreter, or translator to 
prepare the program for execution. See source 
program. 

2. To design, write, and test computer programs. 


program unit 
A main program or a subprogram. 


random access 
An access method in which records can be read from, 
written to, or removed from a file in any order. 


range of a DO loop 

Those statements that physically follow a DO statement, 
up to and including the statement specified by the DO 
statement as being the last to be executed. 


real constant 

A string of decimal digits that expresses a real number. A 
real constant must contain a decimal point, a decimal 
exponent, or both. 


real number 
A number, containing a decimal point, stored in 
fixed—point or floating—point format. 


real type 
An arithmetic data type that can approximate the values 
of real numbers. 


record 

An aggregate that consists of data objects, possibly with 
different attributes, that usually have identifiers attached 
to them. 


relational expression 

An expression that consists of an arithmetic or character 
expression, followed by a relational operator, followed by 
another arithmetic or character expression. The result is 

a value that is true or false. 
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relational operator 
The words or symbols used to express a relational 
condition or a relational expression: 


.GT. greater than 

GE. greater than or equal to 
LE. less than or equal to 
EQ. equal to 

NE. not equal to 


relative record number 
A number that specifies the location of a record in relation 
to a base position in the file containing it. 


run 
To cause a program, utility, or other machine function to 
be performed. 


scale factor 

A number indicating the location of the decimal point in a 
real number (and, on input, if there is no exponent, the 
magnitude of the number). 


scope 
The portion of a program within which a declaration 
applies. 


sequential access 

An access method in which records are read from, 
written to, or removed from a file based on the logical 
order of the records in the file. 


source program 

A set of instructions that are written in a programming 
language and that must be translated to machine 
language before the program can be executed. 


specification statement 

One of the set of statements that provides the compiler 
with information about the data used in the source 
program. In addition, the statement supplies information 
required to allocate data storage. 


statement 

‘A language construct that represents a step ina 
sequence of actions or a set of declarations. Statements 
fall into two broad classes: executable and 
nonexecutable. 


statement function 

A name, followed by a list of dummy arguments, that is 
equated to an arithmetic, logical, or character expression, 
and which can be used as a substitute for the expression 
throughout the program. 


statement function definition 

A statement that defines a statement function. Its form is 
a statement function, followed by an equal sign (=), 
followed by an arithmetic, logical, or character 
expression. 


statement label 

A number from one through five decimal digits that is 
used to identify a statement. Statement labels can be 
used to transfer control, to define the range of a DO, or to 
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refer to a FORMAT statement. 


statement number 
See statement label. 


subprogram 

in XL FORTRAN, a subprogram that has a FUNCTION, 
SUBROUTINE, or BLOCK DATA statement as its first. 
statement. Contrast with main program. 


subroutine 

A sequenced set of statements that can be used in one 
or more computer programs and at one or more points in 
a computer program. See also function subprogram 
and statement function. 


subscript 

A subscript quantity or set of subscript quantities, 
enclosed in parentheses and used with an array name to 
identify a particular array element. 


subscript quantity 

In XL FORTRAN, a component of a subscript. A subscript 
quantity is an integer or real constant, variable, or 
expression. 


substring 
A part of a character string. 


symbolic name 

In a programming language, a unique name used to 
represent an entity such as a file or data item. See also 
name. 


syntax 
The rules for the construction of a statement. 


System Application Architecture (SAA) FORTRAN 
A superset of the ANSI X3.9 — 1978 FORTRAN 77 
standard. 


type declaration 

The specification of the type and, optionally, the length of 
a constant, variable, array, or function using an explicit 
type specification statement. Contrast with predefined 
convention. 


unformatted record 

A record that is transmitted unchanged between internal 
and external storage. See also formatted record and 
list—-directed data. 


unit 

A means of referring to a file to use input/output 
statements. A unit can: be connected or not connected to 
a file. If connected, it refers to a file. The connection is 
symmetric: that is, if a unit is connected to a file, the file is 
connected to the unit. — 


unit identifier 


The number that specifies an external unit or internal file. 


The number can be one of the following: 


1. 


2. 


3. 


An integer expression whose value must be zero or 
positive. 

An asterisk (*) that corresponds to unit 5 for input or 
unit 6 for output. 

The name of a character array, character array 
element, or character substring for an internal file. 


variable 


1. 


2: 


A quantity that can assume any of a given set of 
values. 

A data item, identified by a name, that is not a named 
constant, array, or array element, and that can 
assume different values at different times during 
program execution. 


zero suppression 

The substitution of blanks for leading zeros in a number. 
For example, 00057 becomes 57 when using zero 
suppression. 
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Symbols 


@PROCESS compiler directive, 17 


A 


argument list built-in functions, 56 
asa command, 77 
ASCIll character set, 69 


ASCIl coded character set, determines collating 
sequence, 9 


C 


character set, 9 

collating sequence, 9 

command line options, 17 

compiler directive, @PROCESS, 17 
compiler features, 7 

compiler installation, 8 


compiler listings, 46 
attribute and cross reference section, 50 
compilation epilogue section, 51 
compilation statistics section, 51 
compilation unit epilogue section, 51 
file table section, 51 
header section, 49 
object section, 51 
options section, 49 
source section, 49 

error messages, 49 


compiler options, summary, 18 
compiler services, 7 


compiling, 13 
invocation, 13 
options, 8, 16 


configuration file, 14 
configuration, system, 8 
conflicting options, 23 
conformance flagging, 8 


D 


debugger, symbolic (dbx), 8 
digit, 9 
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E 


EBCDIC character set, 69 
editing, 9 

entering source, 9 
environment variables, 14, 43 


error messages, 43 
compile time, 44 
run time, 45 


F 


features, compiler, 7 
file formats, 33 

file names, 33 

file positioning, 34 
formats, file, 33 


FORTRAN specific AIX commands 
asa command, 77 
fsplit command, 77 


fsplit command, 77 


H 


help, online, 8 


input files, 16 


input format 
fixed—form, 10 
free-form, 10 


insignificant blanks, 11 
installing the compiler, 8 


interlanguage Calls, 53 
%VAL and %REF, 56 
character variable types, 55 
corresponding data types, 54 
how arrays are stored, 56 
linkage conventions, 57 
programming conventions, 53 
programming tips, 54 
sample program, 64 


internal limits, 79 
invoking the compiler, 13 
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K 


keywords, 9 


L 


label, statement, 11 
language support, 7 
letter, 9 

linking, 29 


M 


migration, 8 
migration considerations, 81 


N 


names, 9 


O 


Online help, 8 
optimization, 8 
optimization levels, 35 
options, compiler, 18 
options, details, 23 


_ organization of book, 1 


output files, 16 


p 


preconnected files, 34 
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R 


related documentation, 5 
running the program, 30 


S 


sample listing, 67 


sample program, 67 
output produced, 68 
source file, 67 


sequence, collating, 9 

single precision floating point overflow, 85 
source file options, 17 

special character, 9 

statement label, 11 

statements, 9 

summary of compiler options, 18 
symbolic debugger (dbx), 8 

symbolic name. See names 


syntax diagram 
example of, 4 
how to read, 3 


system configuration, 8 


T 


tabs, 11 


U 


using this book, 1 
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